blob: 43959ad85dff069f0b2919857ee540dc36163e44 [file] [log] [blame]
! { 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