View previous topic :: View next topic |
Author |
Message |
jlb
Joined: 21 Oct 2020 Posts: 45
|
Posted: Tue May 04, 2021 3:32 pm Post subject: Unexplicable warning message during linking |
|
|
The following minimal reproducer code causes the linker (32 bit) to output a warning message
Quote: | WARNING - Module component RECUR has been defined differently here than previously in object file C:\[...]\TREC.obj (C:\[...]\TREC.obj) |
I cannot explain. Removing RECURSIVE or DIMENSION of variable b allow linking without this warning. This warning does not appear while using 64 bit compiler/linker.
Code: | MODULE abc
INTERFACE
RECURSIVE FUNCTION recur(a) RESULT(b)
IMPLICIT NONE
INTEGER :: a
INTEGER, DIMENSION(2) :: b
END FUNCTION recur
END INTERFACE
END MODULE abc
PROGRAM Test
USE abc
IMPLICIT NONE
END PROGRAM Test |
FTN95 Version: 8.72 |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7927 Location: Salford, UK
|
Posted: Tue May 04, 2021 4:56 pm Post subject: |
|
|
jib
This appears to be a false warning and a regression, presumably in FTN95 because SLINK has not changed substantially for many years.
It is not a recent regression so it could be very difficult to track down.
I suggest that you simply ignore the warning. |
|
Back to top |
|
|
jlb
Joined: 21 Oct 2020 Posts: 45
|
Posted: Tue May 04, 2021 6:17 pm Post subject: |
|
|
Paul
Thanks a lot for your reply, which helps me stop looking for a solution to a problem that is obviously not one. |
|
Back to top |
|
|
|