gcc/testsuite/gfortran.dg/intrinsic_9.f90


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

! { dg-do run }
!
! PR fortran/92754
!
! Contributed by G. Steinmetz
!

program p
   integer :: max
   block
      character :: x = max('a','b')
      !print *, x
      if (x /= 'b') stop 1
   end block
end