OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_61.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
! { 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 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.