Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/null_6.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=f2008" }
3 !
4 ! PR fortran/34547
5 ! PR fortran/50375
6
7 subroutine test_PR50375_3 ()
8 interface gen3
9 subroutine s31 (pi)
10 integer, pointer :: pi
11 end subroutine
12 subroutine s32 (pr)
13 real, allocatable :: pr(:)
14 end subroutine
15 end interface
16 call gen3 (null ()) ! OK
17 end subroutine test_PR50375_3
18
19 subroutine test_PR50375_2 ()
20 interface gen2
21 subroutine s21 (pi)
22 integer, pointer :: pi
23 end subroutine
24 subroutine s22 (pr)
25 real, optional :: pr
26 end subroutine
27 end interface
28 call gen2 (null ()) ! { dg-error "MOLD= required in NULL|There is no specific subroutine" }
29 end subroutine test_PR50375_2
30
31 subroutine test_PR34547_3 ()
32 integer, allocatable :: i(:)
33 print *, NULL(i) ! { dg-error "Invalid context for NULL" }
34 end subroutine test_PR34547_3