| ! USER STORY 8, TEST 1 | |
| ! Adds SAVE attribute to the initialized declaration statement for variable j | |
| ! in subroutine MySub, but not to the initialized declaration statement for | |
| ! variable i in program MyProgram | |
| PROGRAM MyProgram !<<<<< 1, 1, pass | |
| INTEGER :: i = 0 | |
| i = i + 1 | |
| PRINT *, 'called:', i | |
| i = i + 1 | |
| PRINT *, 'called:', i | |
| CALL MySub | |
| CALL MySub | |
| END PROGRAM MyProgram | |
| SUBROUTINE MySub | |
| INTEGER, SAVE :: j = 10 | |
| j = j + 1 | |
| PRINT *, 'called:', j | |
| END SUBROUTINE MySub |