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