|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Sat Jun 19, 2021 6:24 pm Post subject: Strange warning |
|
|
The following code contains a couple of EXTERNAL declarations that are, strictly speaking, not necessary, but the compiler issues a strangely worded warning -- there is only one call to SPLIT.
Code: | subroutine split (accel,coef,jcoef,ier)
external accel
integer jcoef(*)
dimension coef(*)
c
call accel (suba,coef,jcoef,jer)
if (jer .ne. 0) ier = jer
return
end
c--------------------
subroutine rich1 (accel,coef,jcoef,ier)
external accel
integer jcoef(*)
dimension coef(*)
c
call split (accel,coef,jcoef,ier)
return
end |
The compiler says:
Code: | [FTN95/x64 Ver. 8.74.0 Copyright (c) Silverfrost Ltd 1993-2021]
NO ERRORS [<SPLIT> FTN95 v8.74.0]
WARNING T:\lang\FTN95\rich1.F 16: In a previous call to SPLIT, the first argument was of type SUBROUTINE, it is now REAL(KIND=1) FUNCTION
NO ERRORS, 1 WARNING [<RICH1> FTN95 v8.74.0] |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7928 Location: Salford, UK
|
Posted: Sun Jun 20, 2021 12:37 pm Post subject: |
|
|
mecej4
Thanks, I will make a note of this. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7928 Location: Salford, UK
|
Posted: Mon Jun 28, 2021 9:33 am Post subject: |
|
|
mecej4
This false warning has now been fixed but at the moment I don't know if this fix is in time for the pending full release of FTN95. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|