org.eclipse.photran.core.vpg.tests/refactoring-test-code/add-subroutine-parameter/test19-fail-defaultvalueisrealwhentypeisinteger/add_subroutine_parameter_19.f90

program defaultvalueisrealforinteger ! Tests that an integer cannot be given a real default value.

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