| ! { dg-do compile } |
| ! Tests the fix for PR29464, in which the second USE of the generic |
| ! interface caused an error. |
| ! |
| ! Contributed by Vivek Rao <vivekrao4@yahoo.com> |
| ! |
| module foo_mod |
| implicit none |
| interface twice |
| module procedure twice_real |
| end interface twice |
| contains |
| real function twice_real(x) |
| real :: x |
| twice_real = 2*x |
| end function twice_real |
| end module foo_mod |
| |
| subroutine foobar () |
| use foo_mod, only: twice, twice |
| print *, twice (99.0) |
| end subroutine foobar |
| |
| program xfoo |
| use foo_mod, only: two => twice, dbl => twice |
| implicit none |
| call foobar () |
| print *, two (2.3) |
| print *, dbl (2.3) |
| end program xfoo |