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
PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
dummy_procedure_9.f90
blob
16da37f1893150f5556fdf82c3c3928f5d8e928f
1
! { dg-do compile }
2
!
3
! PR 40453: [F95] Enhanced (recursive) argument checking
4
!
5
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6
7
program
RecursiveInterface
8
9
call
c
(
b2
)
! { dg-error "Interface mismatch in dummy procedure" }
10
11
contains
12
13
subroutine
a1
(
x
)
14
real
::
x
15
end subroutine
16
17
subroutine
a2
(
i
)
18
integer
::
i
19
end subroutine
20
21
!!!!!!!!!!!!!!!
22
23
subroutine
b1
(
f1
)
24
procedure
(
a1
) ::
f1
25
end subroutine
26
27
subroutine
b2
(
f2
)
28
procedure
(
a2
) ::
f2
29
end subroutine
30
31
!!!!!!!!!!!!!!!
32
33
subroutine
c
(
g
)
34
procedure
(
b1
) ::
g
35
end subroutine
36
37
end