repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
ambiguous_specific_2.f90
blob
79385db8c0863547a15a0ff87c8d9100a4086f55
1
! { dg-do compile }
2
! Checks the fix for PR33542 does not throw an error if there is no
3
! ambiguity in the specific interfaces of foo.
4
!
5
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6
!
7
MODULE
M1
8
INTERFACE
FOO
9
MODULE
PROCEDURE FOO
10
END INTERFACE
11
CONTAINS
12
SUBROUTINE
FOO
(
I
)
13
INTEGER
,
INTENT
(
IN
) ::
I
14
WRITE
(*,*)
'INTEGER'
15
END SUBROUTINE
FOO
16
END MODULE
M1
17
18
MODULE
M2
19
INTERFACE
FOO
20
MODULE
PROCEDURE FOOFOO
21
END INTERFACE
22
CONTAINS
23
SUBROUTINE
FOOFOO
(
R
)
24
REAL
,
INTENT
(
IN
) ::
R
25
WRITE
(*,*)
'REAL'
26
END SUBROUTINE
FOOFOO
27
END MODULE
M2
28
29
PROGRAM
P
30
USE
M1
31
USE
M2
32
implicit none
33
external
bar
34
CALL
FOO
(
10
)
35
CALL
FOO
(
10
.)
36
call
bar
(
foo
)
37
END PROGRAM
P
38
39
SUBROUTINE
bar
(
arg
)
40
EXTERNAL
arg
41
END SUBROUTINE
bar