2 ! Make sure this is evaluated correctly even though max
3 ! has been declared integer.
4 ! Original test case by Gerhard Steinmetz.
7 character(len
=1), parameter :: c
= max('a','b')
8 character(len
=1), parameter :: d
= min('a','b')
9 if (c
/= 'b' .or
. d
/= 'a') stop 1