Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/module_equivalence_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
10 equivalence (a(1),b(2)), (c(1),d(5)) 10 equivalence (a(1),b(2)), (c(1),d(5))
11 end module test_equiv 11 end module test_equiv
12 12
13 subroutine foo () 13 subroutine foo ()
14 use test_equiv, z=>b 14 use test_equiv, z=>b
15 if (any (d(5:8)/=z)) call abort () 15 if (any (d(5:8)/=z)) STOP 1
16 end subroutine foo 16 end subroutine foo
17 17
18 program module_equiv 18 program module_equiv
19 use test_equiv 19 use test_equiv
20 b = 99.0_4 20 b = 99.0_4