Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/invalid_procedure_name.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do compile } ! PR25061 procedure name conflict ! Test case from PR. INTERFACE I1 ! { dg-error "" } SUBROUTINE S1(I) END SUBROUTINE S1 SUBROUTINE S2(R) END SUBROUTINE S2 END INTERFACE I1 CONTAINS SUBROUTINE I1(I) ! { dg-error "already defined as a generic" } END SUBROUTINE I1 END