! { dg-do run } | |
! Checks the fix for PR30878, in which the inclusion | |
! of an implicit function result variable in a namelist | |
! would cause an error. | |
! | |
! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
! | |
character(80) :: buffer | |
if (f1 (buffer) .ne. 42) STOP 1 | |
CONTAINS | |
INTEGER FUNCTION F1 (buffer) | |
NAMELIST /mynml/ F1 | |
integer :: check | |
character(80) :: buffer | |
F1 = 42 | |
write (buffer, nml = mynml) | |
F1 = 0 | |
READ (buffer, nml = mynml) | |
end function | |
END |