| !{ dg-do run } |
| ! 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))) 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 |