summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/null_actual.f90
blob: b29e89d489880572b3253a4721b8f0a0ece85834 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
! { dg-do compile }
! { dg-options "-std=f2003" }
!
! NULL() actual argument to non-pointer dummies
!

call f(null()) ! { dg-error "Fortran 2008: Null pointer at .1. to non-pointer dummy" }
call g(null()) ! { dg-error "Unexpected NULL.. intrinsic at .1. to dummy" }
call h(null()) ! { dg-error "Unexpected NULL.. intrinsic at .1. to dummy" }
contains
subroutine f(x)
  integer, optional  :: x
end subroutine f
subroutine g(x)
  integer, optional, allocatable  :: x
end subroutine g
subroutine h(x)
  integer :: x
end subroutine h
end