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