| ! USER STORY 8, TEST 3 | |
| ! Adds SAVE statement for variables j due to variable not having declaration | |
| ! statement while being initialized by a DATA statement in subroutine MySub, | |
| ! but doesn't add it for variables i due to variable not having declaration | |
| ! statement while being initialized by a DATA statement in program MyProgram | |
| PROGRAM MyProgram !<<<<< 1, 1, pass | |
| DATA i /0/ | |
| i = i + 1 | |
| PRINT *, 'called:', i | |
| i = i + 1 | |
| PRINT *, 'called:', i | |
| CALL MySub | |
| CALL MySub | |
| END PROGRAM MyProgram | |
| SUBROUTINE MySub | |
| SAVE j | |
| DATA j /0/ | |
| j = j + 1 | |
| PRINT *, 'called:', j | |
| END SUBROUTINE MySub |