Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/namelist_64.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! PR45532 gfortran namelist read error. ! Derived from the original test case by David Sagan. program test implicit none type line_struct integer :: width = 10 end type type symbol_struct integer :: typee = 313233 end type type curve_struct type (line_struct) line type (symbol_struct) symbol end type type (curve_struct) curve(10) namelist / params / curve ! open (10, status="scratch") write(10,*) "¶ms" write(10,*) " curve(1)%symbol%typee = 1234" write(10,*) "/" rewind(10) read (10, nml = params) if (curve(1)%symbol%typee /= 1234) STOP 1 close(10) end program