Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/namelist_61.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 !
3 ! PR fortran/43228
4 !
5 integer :: a(3,3)
6 character(len=100) :: str
7 namelist /nml/a
8
9 a = -1
10 str = '&nml a(1,:) = 1 2 3 /'
11 read(str, nml=nml)
12 if (any (a(1,:) /= [1, 2, 3])) call abort ()
13 if (any (a([2,3],:) /= -1)) call abort ()
14
15 a = -1
16 str = '&nml a(1,1) = 1 2 3 4 /'
17 read(str, nml=nml)
18 if (any (a(:,1) /= [1, 2, 3])) call abort ()
19 if (any (a(:,2) /= [4, -1, -1])) call abort ()
20 if (any (a(:,3) /= -1)) call abort ()
21
22 str = '&nml a(1,:) = 1 2 3 , &
23 & a(2,:) = 4,5,6 &
24 & a(3,:) = 7 8 9/'
25 read(str, nml=nml)
26 if (any (a(1,:) /= [1, 2, 3])) call abort ()
27 if (any (a(2,:) /= [4, 5, 6])) call abort ()
28 if (any (a(3,:) /= [7, 8, 9])) call abort ()
29
30 !print *, a(:,1)
31 !print *, a(:,2)
32 !print *, a(:,3)
33 end
34
35