| ! { dg-do compile } |
| ! PR fortran/111503 - passing NULL() to POINTER, OPTIONAL, CONTIGUOUS dummy |
| |
| program test |
| implicit none |
| integer, pointer, contiguous :: p(:) => null() |
| integer, allocatable, target :: a(:) |
| type t |
| integer, pointer, contiguous :: p(:) => null() |
| integer, allocatable :: a(:) |
| end type t |
| type(t), target :: z |
| class(t), allocatable, target :: c |
| print *, is_contiguous (p) |
| allocate (t :: c) |
| call one (p) |
| call one () |
| call one (null ()) |
| call one (null (p)) |
| call one (a) |
| call one (null (a)) |
| call one (z% p) |
| call one (z% a) |
| call one (null (z% p)) |
| call one (null (z% a)) |
| call one (c% p) |
| call one (c% a) |
| call one (null (c% p)) |
| call one (null (c% a)) |
| contains |
| subroutine one (x) |
| integer, pointer, optional, contiguous, intent(in) :: x(:) |
| print *, present (x) |
| if (present (x)) then |
| print *, "->", associated (x) |
| if (associated (x)) stop 99 |
| end if |
| end subroutine one |
| end |
