blob: 9f28e2ee70ea25c5662432cd5bea0e1ca899b8be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { 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" } }
|
