Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/generic_17.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 } ! Test the patch for PR36374 in which the different ! symbols for 'foobar' would be incorrectly flagged as ! ambiguous in foo_mod. ! ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> ! module s_foo_mod type s_foo_type real(kind(1.e0)) :: v end type s_foo_type interface foobar subroutine s_foobar(x) import type(s_foo_type), intent (inout) :: x end subroutine s_foobar end interface end module s_foo_mod module d_foo_mod type d_foo_type real(kind(1.d0)) :: v end type d_foo_type interface foobar subroutine d_foobar(x) import type(d_foo_type), intent (inout) :: x end subroutine d_foobar end interface end module d_foo_mod module foo_mod use s_foo_mod use d_foo_mod end module foo_mod subroutine s_foobar2(x) use foo_mod end subroutine s_foobar2