OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* MAINTAINERS (mt port): Remove.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
invalid_procedure_name.f90
1
! { dg-do compile }
2
! PR25061 procedure name conflict
3
! Test case from PR.
4
INTERFACE I1 ! { dg-error "" }
5
SUBROUTINE S1(I)
6
END SUBROUTINE S1
7
SUBROUTINE S2(R)
8
END SUBROUTINE S2
9
END INTERFACE I1
10
CONTAINS
11
SUBROUTINE I1(I) ! { dg-error "already defined as a generic" }
12
END SUBROUTINE I1
13
END
14