Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/proc_ptr_14.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 ! { dg-options "-std=f95" }
3 !
4 ! PR 39692: f95: conflict between EXTERNAL and POINTER
5 !
6 ! Test for Procedure Pointers (without PROCEDURE statements) with the -std=f95 flag.
7 !
8 ! Contributed by Janus Weil <janus@gcc.gnu.org>
9
10 pointer :: f
11 external :: f ! { dg-error "Fortran 2003: Procedure pointer" }
12
13 external :: g
14 pointer :: g ! { dg-error "Fortran 2003: Procedure pointer" }
15
16 real, pointer, external :: h ! { dg-error "Fortran 2003: Procedure pointer" }
17
18 interface
19 subroutine i
20 end subroutine i
21 end interface
22 pointer :: i ! { dg-error "Fortran 2003: Procedure pointer" }
23
24 pointer :: j
25 interface
26 real function j()
27 end function j ! { dg-error "Fortran 2003: Procedure pointer" }
28 end interface
29
30 contains
31
32 function k() ! { dg-error "attribute conflicts with" }
33 intrinsic sin
34 external k
35 pointer k ! { dg-error "Fortran 2003: Procedure pointer" }
36 real k
37 end function k
38
39 end
40