Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/namelist_23.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
!{ dg-do run { target fd_truncate } } ! PR26136 Filling logical variables from namelist read when object list is not ! complete. Test case derived from PR. ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> program read_logical implicit none logical, dimension(4) :: truely integer, dimension(4) :: truely_a_very_long_variable_name namelist /mynml/ truely namelist /mynml/ truely_a_very_long_variable_name truely = .false. truely_a_very_long_variable_name = 0 open(10, status="scratch") write(10,*) "&mynml" write(10,*) "truely = trouble, traffic .true" write(10,*) "truely_a_very_long_variable_name = 4, 4, 4" write(10,*) "/" rewind(10) read (10, nml=mynml, err = 1000) if (.not.all(truely(1:3))) STOP 1 if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) STOP 2 truely = .false. truely_a_very_long_variable_name = 0 rewind(10) write(10,*) "&mynml" write(10,*) "truely = .true., .true.," write(10,*) "truely_a_very_long_variable_name = 4, 4, 4" write(10,*) "/" rewind(10) read (10, nml=mynml, err = 1000) if (.not.all(truely(1:2))) STOP 3 if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) STOP 4 truely = .true. truely_a_very_long_variable_name = 0 rewind(10) write(10,*) "&mynml" write(10,*) "truely = .false., .false.," write(10,*) "truely_a_very_long_variable_name = 4, 4, 4" write(10,*) "/" rewind(10) read (10, nml=mynml, err = 1000) if (all(truely(1:2))) STOP 5 if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) STOP 6 close(10) stop 1000 STOP 7 end program read_logical