gcc/testsuite/gfortran.fortran-torture/compile/implicit.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

implicit integer(a), logical(b-c), real(d-y), integer(z)
a = 1_4
b = .true.
c = b
d = 1.0e2
y = d
z = a
end
! test prompted by PR 16161
! we used to match "character (c)" wrongly in the below, confusing the parser
subroutine b
implicit character (c)
end