1! { dg-do compile } 2! { dg-options "-std=f2008" } 3! 4! PR fortran/34547 5! PR fortran/50375 6 7subroutine 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 17end subroutine test_PR50375_3 18 19subroutine 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" } 29end subroutine test_PR50375_2 30 31subroutine test_PR34547_3 () 32 integer, allocatable :: i(:) 33 print *, NULL(i) ! { dg-error "Invalid context for NULL" } 34end subroutine test_PR34547_3 35