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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_56.f90] - Blame information for rev 302

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do run }
2
! PR37707 Namelist read of array of derived type incorrect
3
! Test case from Tobias Burnus
4
  IMPLICIT NONE
5
  integer :: j
6
  character(len=5) :: str(4)
7
  character(len=900) :: nlstr
8
  namelist /nml/ str, j
9
  str = ''
10
  j = -42
11
  nlstr = '&nml str = "a", "b", "cde", j = 5 /'
12
  read(nlstr,nml)
13
  open(99, status="scratch")
14
  write(99,nml)
15
  rewind(99)
16
  j = -54
17
  str = 'XXXX'
18
  read(99,nml)
19
  if (j.ne.5) call abort
20
  if (any(str.ne.["a    ","b    ","cde  ","     "])) call abort
21
  close(99)
22
end

powered by: WebSVN 2.1.0

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