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

Subversion Repositories openrisc

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

Compare with Previous | Blame | View Log

! { dg-do compile }
! Tests the fix for PR35997, in which the use association of renamed
! valid2 and flag2 was treated as if the renaming were done on use
! association in the main program.  Thus, the following, direct use
! association of valid and flag did not occur.
!
! Contributed by Drew McCormack <drewmccormack@mac.com>
!
module funcinterfacemod
  interface
    logical function valid ()
    end function
  end interface
  logical :: flag = .true.
end module

module secondmod
  use funcinterfacemod, valid2 => valid, flag2 => flag
end module

logical function valid ()
  valid = .true.
end function

program main
  use secondmod
  use funcinterfacemod
  if (valid ()) then
    print *, 'Is Valid'
  endif
  if (flag) then
    print *, 'Is flag'
  endif
end program
! { dg-final { cleanup-modules "funcinterfacemod secondmod" } }

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.