blob: ee06cc77b63b011f8a4d277f6193e3af5cec7c67 [file] [log] [blame]
! { dg-do run }
!
! TS 29113
! 6.3 Argument association
! An assumed-rank dummy argument may correspond to an actual argument of
! any rank. If the actual argument has rank zero, the dummy argument has
! rank zero; the shape is a zero-sized array and the LBOUND and UBOUND
! intrinsic functions, with no DIM argument, return zero-sized
! arrays. [...]
program test
call testit (42)
contains
subroutine testit (x0)
integer :: x0(..)
! expect to have rank 0
if (rank (x0) .ne. 0) stop 101
! expect shape to be a zero-sized array
if (size (shape (x0)) .ne. 0) stop 102
! expect lbound and ubound functions to return zero-sized arrays
if (size (lbound (x0)) .ne. 0) stop 103
if (size (ubound (x0)) .ne. 0) stop 104
end subroutine
end program