View previous topic :: View next topic |
Author |
Message |
mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Fri Apr 27, 2018 1:50 am Post subject: FTN95 8.30 rejects valid F77 code and accepts invalid F77 |
|
|
Given the source
Code: | 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
Code: | [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
Code: | [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] |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7927 Location: Salford, UK
|
Posted: Fri Apr 27, 2018 6:51 am Post subject: |
|
|
Thanks for the feedback. I have made a note that this needs fixing. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7927 Location: Salford, UK
|
Posted: Tue May 01, 2018 4:02 pm Post subject: |
|
|
This issue has now been fixed for the next release of FTN95. |
|
Back to top |
|
|
|