| program defaultvalueisvariablestartingwithnumber ! Tests that the default value cannot be set to an invalid variable name | |
| end program defaultvalueisvariablestartingwithnumber | |
| subroutine sub(z) !<<<<< 4, 1, 4, 5, integer :: y, 0, 1defval, fail-final | |
| integer, intent(in) :: z | |
| end subroutine |