1! { dg-do run }
2! Checks the fix for PR30878, in which the inclusion
3! of an implicit function result variable in a namelist
4! would cause an error.
5!
6! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
7!
8  character(80) :: buffer
9  if (f1 (buffer) .ne. 42) call abort ()
10CONTAINS
11   INTEGER FUNCTION F1 (buffer)
12     NAMELIST /mynml/ F1
13     integer :: check
14     character(80) :: buffer
15     F1 = 42
16     write (buffer, nml = mynml)
17     F1 = 0
18     READ (buffer, nml = mynml)
19   end function
20END
21