+
−! { dg-do run }
+
−!
+
−! PR fortran/43228
+
−!
+
−integer :: a(3,3)
+
−character(len=100) :: str
+
−namelist /nml/a
+
−
+
−a = -1
+
−str = '&nml a(1,:) = 1 2 3 /'
+
−read(str, nml=nml)
+
−if (any (a(1,:) /= [1, 2, 3])) STOP 1
+
−if (any (a([2,3],:) /= -1)) STOP 2
+
−
+
−a = -1
+
−str = '&nml a(1,1) = 1 2 3 4 /'
+
−read(str, nml=nml)
+
−if (any (a(:,1) /= [1, 2, 3])) STOP 3
+
−if (any (a(:,2) /= [4, -1, -1])) STOP 4
+
−if (any (a(:,3) /= -1)) STOP 5
+
−
+
−str = '&nml a(1,:) = 1 2 3 , &
+
−       &    a(2,:) = 4,5,6 &
+
−       &    a(3,:) = 7 8 9/'
+
−read(str, nml=nml)
+
−if (any (a(1,:) /= [1, 2, 3])) STOP 6
+
−if (any (a(2,:) /= [4, 5, 6])) STOP 7
+
−if (any (a(3,:) /= [7, 8, 9])) STOP 8
+
−
+
−!print *, a(:,1)
+
−!print *, a(:,2)
+
−!print *, a(:,3)
+
−end
+
−
+
−