2 ! { dg-options "-std=f95" }
7 subroutine test_PR50375_1 ()
8 ! Contributed by Vittorio Zecca
11 integer, pointer :: pi
17 call gen1 (null ()) ! { dg-error "MOLD= required in NULL|There is no specific subroutine" }
18 end subroutine test_PR50375_1
20 subroutine test_PR50375_2 ()
23 integer, pointer :: pi
29 call gen2 (null ()) ! OK in F95/F2003 (but not in F2008)
30 end subroutine test_PR50375_2
32 subroutine test_PR34547_1 ()
33 call proc (null ()) ! { dg-error "MOLD argument to NULL required" }
34 end subroutine test_PR34547_1
36 subroutine test_PR34547_2 ()
37 print *, null () ! { dg-error "Invalid context" }
38 end subroutine test_PR34547_2
40 subroutine test_PR34547_3 ()
41 integer, allocatable
:: i(:)
42 print *, NULL(i
) ! { dg-error "Fortran 2003: NULL intrinsic with allocatable MOLD" }
43 end subroutine test_PR34547_3