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]