40 lines · plain
1! RUN: not %flang_fc1 %s 2>&1 | FileCheck %s --check-prefix=CHECK12! RUN: not %flang_fc1 -Wfatal-errors %s 2>&1 | FileCheck %s --check-prefix=CHECK23 4module m5 contains6 subroutine s0(p)7 real, pointer, intent(in) :: p8 end9 subroutine s1(p)10 real, pointer, intent(in) :: p(:)11 end12 subroutine sa(p)13 real, pointer, intent(in) :: p(..)14 end15 subroutine sao(p)16 real, intent(in), optional, pointer :: p(..)17 end18 subroutine soa(a)19 real, intent(in), optional, allocatable :: a(..)20 end21 subroutine test22 real, pointer :: a0, a1(:)23 !CHECK1: fatal-errors-semantics.f90:{{.*}} error:24 !CHECK2: fatal-errors-semantics.f90:{{.*}} error:25 call s0(null(a1))26 !CHECK1: fatal-errors-semantics.f90:{{.*}} error:27 !CHECK2-NOT: error:28 call s1(null(a0))29 !CHECK1: fatal-errors-semantics.f90:{{.*}} error:30 !CHECK2-NOT: error:31 call sa(null())32 !CHECK1: fatal-errors-semantics.f90:{{.*}} error:33 !CHECK2-NOT: error:34 call sao(null())35 !CHECK1: fatal-errors-semantics.f90:{{.*}} error:36 !CHECK2-NOT: error:37 call soa(null())38 end39 end40