OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_29.f90] - Rev 694

Compare with Previous | Blame | View Log

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.