Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/minval_char_5.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do run }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! PR fortran/83316 - this used to ICE
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 program tminmaxval
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 implicit none
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 character(len=*), parameter :: b = "a"
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 character(len=*), parameter :: e = "c"
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 character(len=*), parameter :: s(3) = (/"a", "b", "c"/)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 if (minval(s) /= b) then
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 STOP 1
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 end if
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 if (maxval(s) /= e) then
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 STOP 2
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 end if
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 end program tminmaxval