1! { dg-do run } 2! PR fortran/83316 - this used to ICE 3program tminmaxval 4 implicit none 5 6 character(len=*), parameter :: b = "a" 7 character(len=*), parameter :: e = "c" 8 character(len=*), parameter :: s(3) = (/"a", "b", "c"/) 9 10 if (minval(s) /= b) then 11 STOP 1 12 end if 13 14 if (maxval(s) /= e) then 15 STOP 2 16 end if 17 18end program tminmaxval 19