Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/use_25.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR fortran/42769 ! This test used to be rejected because the typebound call A%GET was ! simplified to MY_GET which is an ambiguous name in the main program ! namespace. ! ! Original testcase by Salvator Filippone <sfilippone@uniroma2.it> ! Reduced by Janus Weil <janus@gcc.gnu.org> module mod1 type :: t1 contains procedure, nopass :: get => my_get end type contains subroutine my_get() print *,"my_get (mod1)" end subroutine end module module mod2 contains subroutine my_get() ! must have the same name as the function in mod1 print *,"my_get (mod2)" end subroutine end module use mod2 use mod1 type(t1) :: a call call_get contains subroutine call_get call a%get() end subroutine call_get end