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