path: root/org.eclipse.photran.core.vpg.tests/refactoring-test-code/add-subroutine-parameter/test21-fail-defaultvalueisnullwhentypeisnotpointer/add_subroutine_parameter_21.f90

program defaultvalueisnullfornonpointer ! Tests that null cannot be the default value for a non pointer

end program defaultvalueisnullfornonpointer
subroutine sub(z) !<<<<< 4, 1, 4, 5, integer :: y, 0, null, fail-final
    integer, intent(in) :: z
end subroutine