Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/interface_27.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 !
3 ! PR 40039: Procedures as actual arguments: Check intent of arguments
4 !
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7 module m
8
9 contains
10
11 subroutine a(x,f)
12 real :: x
13 interface
14 real function f(y)
15 real,intent(in) :: y
16 end function
17 end interface
18 print *,f(x)
19 end subroutine
20
21 real function func(z)
22 real,intent(inout) :: z
23 func = z**2
24 end function
25
26 subroutine caller
27 interface
28 real function p(y)
29 real,intent(in) :: y
30 end function
31 end interface
32 pointer :: p
33
34 call a(4.3,func) ! { dg-error "INTENT mismatch in argument" }
35 p => func ! { dg-error "INTENT mismatch in argument" }
36 end subroutine
37
38 end module