6 October   2023   2:15:24.372 PM      
 
file_name_sequence_test():
  FORTRAN77 version
  Test file_name_sequence().
 
TEST04:
  FILENAME(I+1) = FILENAME_INC ( FILENAME(I) )
  First FILENAME = "frodo_01345_lives.txt".
  Number of filenames =   10
  Numbers may include leading zeros.
 
     1  "frodo_01345_lives.txt".
     2  "frodo_01346_lives.txt".
     3  "frodo_01347_lives.txt".
     4  "frodo_01348_lives.txt".
     5  "frodo_01349_lives.txt".
     6  "frodo_01350_lives.txt".
     7  "frodo_01351_lives.txt".
     8  "frodo_01352_lives.txt".
     9  "frodo_01353_lives.txt".
    10  "frodo_01354_lives.txt".
 
file_name_sequence_test():
  Normal end of execution.
 
 6 October   2023   2:15:24.372 PM