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