Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/recursive_reference_2.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
25 25
26 END MODULE M1 26 END MODULE M1
27 27
28 USE M1 28 USE M1
29 integer :: ans(5) 29 integer :: ans(5)
30 IF (ANY(TEST(3).NE.(/5,5,5,5,5/))) CALL ABORT() 30 IF (ANY(TEST(3).NE.(/5,5,5,5,5/))) STOP 1
31 IF (ANY(TEST(6).NE.(/0,0,0,0,0/))) CALL ABORT() 31 IF (ANY(TEST(6).NE.(/0,0,0,0,0/))) STOP 2
32 END 32 END