Subversion Repositories openrisc

! { 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 

!

  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