Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/namelist_56.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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) STOP 1 if (any(str.ne.["a ","b ","cde "," "])) STOP 2 close(99) end