annotate gcc/testsuite/gfortran.dg/null_6.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! { dg-options "-std=f2008" }
kono
parents:
diff changeset
3 !
kono
parents:
diff changeset
4 ! PR fortran/34547
kono
parents:
diff changeset
5 ! PR fortran/50375
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 subroutine test_PR50375_3 ()
kono
parents:
diff changeset
8 interface gen3
kono
parents:
diff changeset
9 subroutine s31 (pi)
kono
parents:
diff changeset
10 integer, pointer :: pi
kono
parents:
diff changeset
11 end subroutine
kono
parents:
diff changeset
12 subroutine s32 (pr)
kono
parents:
diff changeset
13 real, allocatable :: pr(:)
kono
parents:
diff changeset
14 end subroutine
kono
parents:
diff changeset
15 end interface
kono
parents:
diff changeset
16 call gen3 (null ()) ! OK
kono
parents:
diff changeset
17 end subroutine test_PR50375_3
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 subroutine test_PR50375_2 ()
kono
parents:
diff changeset
20 interface gen2
kono
parents:
diff changeset
21 subroutine s21 (pi)
kono
parents:
diff changeset
22 integer, pointer :: pi
kono
parents:
diff changeset
23 end subroutine
kono
parents:
diff changeset
24 subroutine s22 (pr)
kono
parents:
diff changeset
25 real, optional :: pr
kono
parents:
diff changeset
26 end subroutine
kono
parents:
diff changeset
27 end interface
kono
parents:
diff changeset
28 call gen2 (null ()) ! { dg-error "MOLD= required in NULL|There is no specific subroutine" }
kono
parents:
diff changeset
29 end subroutine test_PR50375_2
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 subroutine test_PR34547_3 ()
kono
parents:
diff changeset
32 integer, allocatable :: i(:)
kono
parents:
diff changeset
33 print *, NULL(i) ! { dg-error "Invalid context for NULL" }
kono
parents:
diff changeset
34 end subroutine test_PR34547_3