! USER STORY 7, TEST 1
! Adds SAVE statement for variable call_counter due to variable being
! implicitly saved in a data block

PROGRAM MyProgram !<<<<< 1, 1, pass
  CALL MySub
  CALL MySub
END PROGRAM MyProgram

SUBROUTINE MySub
  INTEGER, SAVE :: call_counter
  data call_counter /10/
  call_counter = call_counter + 1
  PRINT *, 'called:', call_counter
END SUBROUTINE MySub