gcc/testsuite/gfortran.dg/scan_3.f90


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

! { dg-do compile }
!
! PR fortran/103789
! Check the absence of ICE when generating calls to SCAN with a KIND argument.

program p
   character(len=10) :: y(2)
   integer :: z(2), x(2), w(2), v(2)
   y = ['abc', 'def']
   z = scan(y, 'e', kind=4) + 1
   x = scan(y, 'e', back=.false., kind=4) + 1
   w = scan(y, 'e',      .false., kind=4) + 1
   v = scan(y, 'e',      .false.,      4) + 1
end program p