comparison gcc/testsuite/gfortran.dg/dec_structure_6.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
5 ! 5 !
6 6
7 subroutine aborts (s) 7 subroutine aborts (s)
8 character(*), intent(in) :: s 8 character(*), intent(in) :: s
9 print *, s 9 print *, s
10 call abort() 10 STOP 1
11 end subroutine 11 end subroutine
12 12
13 integer, parameter :: as = 3 13 integer, parameter :: as = 3
14 structure /s8/ 14 structure /s8/
15 character*20 c /"HELLO"/ ! ok 15 character*20 c /"HELLO"/ ! ok