Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/recursive_interface_2.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
rev | line source |
---|---|
111 | 1 ! { dg-do compile } |
2 ! | |
3 ! PR fortran/54107 | |
4 ! Recursive interfaces used to lead to an infinite recursion during | |
5 ! translation. | |
6 | |
7 module m | |
8 contains | |
9 subroutine foo (arg) | |
10 procedure(foo) :: arg | |
11 end subroutine | |
12 function foo2 (arg) result(r) | |
13 procedure(foo2) :: arg | |
14 procedure(foo2), pointer :: r | |
15 end function | |
16 subroutine bar (arg) | |
17 procedure(baz) :: arg | |
18 end subroutine | |
19 subroutine baz (arg) | |
20 procedure(bar) :: arg | |
21 end subroutine | |
22 end module m |