Silverfrost Forums

Welcome to our forums

FTN95 8.30 rejects valid F77 code and accepts invalid F77

27 Apr 2018 12:50 #22000

Given the source

      subroutine sub2(str)
      character*(*) str(*)
      print *,str(2)(2:4)    !Legal, but rejected by FTN95
      print *,str            !Illegal, but accepted by FTN95
      return
      end

FTN95 says

[FTN95/Win32 Ver. 8.30.0 Copyright (c) Silverfrost Ltd 1993-2018]
0003)       print *,str(2)(2:4)    !Legal, but rejected by FTN95
*** STR is an assumed size array and cannot appear on an I/O statement
    1 ERROR  [<SUB2> FTN95 v8.30.0]
*** Compilation failed

In contrast, FTN77 4.03 says

[Salford FTN77/Win32 v4.03, Copyright (c) Salford Software Ltd. 1988-1998]
0004)       print *,str            !Illegal, but accepted by FTN95
*** STR is an assumed size array (last upper bound is *) which may only
appear in an implied DO-loop in an input/output list
     1 ERRORS  [<SUB2>FTN77 Ver 4.03]
27 Apr 2018 5:51 #22003

Thanks for the feedback. I have made a note that this needs fixing.

1 May 2018 3:02 #22056

This issue has now been fixed for the next release of FTN95.

Please login to reply.