Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/interface_8.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! One of the tests of the patch for PR30068. ! Taken from comp.lang.fortran 3rd December 2006. ! ! Although the generic procedure is not referenced and it would ! normally be permissible for it to be ambiguous, the USE, ONLY ! statement is effectively a reference and is invalid. ! module mod1 interface generic subroutine foo(a) real :: a end subroutine end interface generic end module mod1 module mod2 interface generic subroutine bar(a) real :: a end subroutine end interface generic end module mod2 program main use mod1, only: generic ! { dg-warning "has ambiguous interfaces" } use mod2 end program main