URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_24.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
!{ dg-do run }
!{ dg-options -std=gnu }
! Tests namelist read when more data is provided then specified by
! array qualifier in list.
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
program pr24459
implicit none
integer nd, ier, i, j
parameter ( nd = 5 )
character*(8) names(nd,nd)
character*(8) names2(nd,nd)
character*(8) names3(nd,nd)
namelist / mynml / names, names2, names3
open(unit=20,status='scratch', delim='apostrophe')
write (20, '(a)') "&MYNML"
write (20, '(a)') "NAMES = 25*'0'"
write (20, '(a)') "NAMES2 = 25*'0'"
write (20, '(a)') "NAMES3 = 25*'0'"
write (20, '(a)') "NAMES(2,2) = 'frogger'"
write (20, '(a)') "NAMES(1,1) = 'E123' 'E456' 'D789' 'P135' 'P246'"
write (20, '(a)') "NAMES2(1:5:2,2) = 'abcde' 'fghij' 'klmno'"
write (20, '(a)') "NAMES3 = 'E123' 'E456' 'D789' 'P135' 'P246' '0' 'frogger'"
write (20, '(a)') "/"
rewind(20)
read(20,nml=mynml, iostat=ier)
if (ier.ne.0) call abort()
if (any(names(:,3:5).ne."0")) call abort()
if (names(2,2).ne."frogger") call abort()
if (names(1,1).ne."E123") call abort()
if (names(2,1).ne."E456") call abort()
if (names(3,1).ne."D789") call abort()
if (names(4,1).ne."P135") call abort()
if (names(5,1).ne."P246") call abort()
if (any(names2(:,1).ne."0")) call abort()
if (any(names2(:,3:5).ne."0")) call abort()
if (names2(1,2).ne."abcde") call abort()
if (names2(2,2).ne."0") call abort()
if (names2(3,2).ne."fghij") call abort()
if (names2(4,2).ne."0") call abort()
if (names2(5,2).ne."klmno") call abort()
if (any(names3.ne.names)) call abort()
end
Go to most recent revision | Compare with Previous | Blame | View Log