Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/entry_array_specs_2.f @ 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
7 program test_entry 7 program test_entry
8 common // j 8 common // j
9 real a(10) 9 real a(10)
10 a(1) = 999. 10 a(1) = 999.
11 call x 11 call x
12 if (j .ne. 1) call abort () 12 if (j .ne. 1) STOP 1
13 call y(a,10) 13 call y(a,10)
14 if (j .ne. 2) call abort () 14 if (j .ne. 2) STOP 2
15 stop 15 stop
16 end 16 end
17 subroutine x 17 subroutine x
18 common // j 18 common // j
19 real a(n) 19 real a(n)