21 lines
501 B
Fortran
21 lines
501 B
Fortran
! { 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) call abort ()
|
|
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
|