Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/parameter_array_init_1.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 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 ! 4 !
5 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 5 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
6 ! 6 !
7 INTEGER :: K(3) = 1 7 INTEGER :: K(3) = 1
8 INTEGER, PARAMETER :: J(3) = 2 8 INTEGER, PARAMETER :: J(3) = 2
9 IF (ANY (MAXLOC (K, J<3) .NE. 1)) CALL ABORT () 9 IF (ANY (MAXLOC (K, J<3) .NE. 1)) STOP 1
10 IF (ANY (J .NE. 2)) CALL ABORT () 10 IF (ANY (J .NE. 2)) STOP 2
11 END 11 END