!=======================================================================
!   FILE: TEST13.F90
!   DATE: 21 July 2003
!
!   TEST: Arrays size of y in Subroutine Foo does not conform to use
!         with parameter X corresponding to argument a in main(test).
!
!   Contact: Mark Stevens                   Salford Software Ltd
!=======================================================================

program test
    interface
        subroutine foo(x)
            integer :: x(:,:)
        end subroutine foo
    end interface
    integer a(5, 5)

    call foo(a)
    print *, "Test13: Non-conformant array not detected."
end

subroutine foo(x)
    integer :: x(:,:), y(6, 6)
    y = 1
    x = y - 1
end subroutine