1! Check that inquiry functions are allowed as specification expressions.
2subroutine inquiry(x1)
3  implicit none
4  real, dimension(1:), intent(out) :: x1
5  real, dimension(1:size(x1)) :: x3
6  x3 = 0
7  x1 = x3
8end subroutine
9