2 ! Tests the fix for PR35997, in which the use association of renamed
3 ! valid2 and flag2 was treated as if the renaming were done on use
4 ! association in the main program. Thus, the following, direct use
5 ! association of valid and flag did not occur.
7 ! Contributed by Drew McCormack <drewmccormack@mac.com>
9 module funcinterfacemod
11 logical function valid ()
14 logical :: flag = .true.
18 use funcinterfacemod, valid2 => valid, flag2 => flag
21 logical function valid ()
35 ! { dg-final { cleanup-modules "funcinterfacemod secondmod" } }