Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/namelist_58.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 } ! PR40853 Error in namelist IO. ! Test case derived from example given in PR. < jvdelisle@gcc.gnu.org > program test implicit none type tao_title_struct character(2) justify end type type tao_plot_page_struct real shape_height_max type (tao_title_struct) title ! Comment this line out and the bug goes away. real size(2) end type type (tao_plot_page_struct) plot_page namelist / params / plot_page open (10, status="scratch") write(10,'(a)')" ¶ms" write(10,'(a)')" plot_page%size=5 , 2," write(10,'(a)')"/" rewind(10) read (10, nml = params) if (any(plot_page%size .ne. (/ 5, 2 /))) STOP 1 close (10) end program