!{ 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 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))) call abort() if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) call abort() 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))) call abort() if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) call abort() 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))) call abort() if (.not.all(truely_a_very_long_variable_name(1:3).eq.4)) call abort() close(10) stop 1000 call abort() end program read_logical