36 lines
734 B
Fortran
36 lines
734 B
Fortran
! { 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])) call abort ()
|
|
if (any (a([2,3],:) /= -1)) call abort ()
|
|
|
|
a = -1
|
|
str = '&nml a(1,1) = 1 2 3 4 /'
|
|
read(str, nml=nml)
|
|
if (any (a(:,1) /= [1, 2, 3])) call abort ()
|
|
if (any (a(:,2) /= [4, -1, -1])) call abort ()
|
|
if (any (a(:,3) /= -1)) call abort ()
|
|
|
|
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])) call abort ()
|
|
if (any (a(2,:) /= [4, 5, 6])) call abort ()
|
|
if (any (a(3,:) /= [7, 8, 9])) call abort ()
|
|
|
|
!print *, a(:,1)
|
|
!print *, a(:,2)
|
|
!print *, a(:,3)
|
|
end
|
|
|
|
|