Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/associate_15.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
18 associate (x=>shape(d)) 18 associate (x=>shape(d))
19 a = x(1) 19 a = x(1)
20 b = x(2) 20 b = x(2)
21 write (line1, *) a, b 21 write (line1, *) a, b
22 write (line2, *) x 22 write (line2, *) x
23 if (trim (line1) .ne. trim (line2)) call abort 23 if (trim (line1) .ne. trim (line2)) STOP 1
24 end associate 24 end associate
25 associate (x=>[1,2]) 25 associate (x=>[1,2])
26 a = x(1) 26 a = x(1)
27 b = x(2) 27 b = x(2)
28 write (line1, *) a, b 28 write (line1, *) a, b
29 write (line2, *) x 29 write (line2, *) x
30 if (trim (line1) .ne. trim (line2)) call abort 30 if (trim (line1) .ne. trim (line2)) STOP 2
31 end associate 31 end associate
32 associate (x=>bar(5)) ! make sure that we haven't broken function association 32 associate (x=>bar(5)) ! make sure that we haven't broken function association
33 a = x(1) 33 a = x(1)
34 b = x(2) 34 b = x(2)
35 c = x(3) 35 c = x(3)
36 write (line1, *) a, b, c 36 write (line1, *) a, b, c
37 write (line2, *) x 37 write (line2, *) x
38 if (trim (line1) .ne. trim (line2)) call abort 38 if (trim (line1) .ne. trim (line2)) STOP 3
39 end associate 39 end associate
40 end 40 end