- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hello,
I am getting the following error message:
error #6405: The same named entity from different modules and/or program units cannot be referenced. [A120]
However, A120 is in a separate source file (not in a module) and is defined only once in the program.
A120 is called from a subroutine E25 andan INTERFACE block is created in E25.
FP in the INTERFACE block is an integer with value 4 which isdefined in ERR_HAND. Since ERR_HAND is also used insubroutine E25, Itried to remove USE ERR_HAND form the INTERFACE block, but that didn't work.
I am bit confused. Any suggestions?
Thanks,
Walter Kramer
INTERFACE
REAL(FP) FUNCTION A120(TAT,ZTU)
USE ERR_HAND
IMPLICIT NONE
REAL(FP), INTENT(IN) :: TAT
CHARACTER(ISP), INTENT(IN) :: ZTU
END FUNCTION
END INTERFACE
Link Copied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I will try to reproduce this issue in a small project suitable for uploading, but I am not sure that I will succeed, because another subroutine is also calling A120 (with A120 interface exposed through an INTERFACE block) and compiles without a problem. Difference is that the routine that doesn't compile is contained in a module, whereas the other is in a separate source file.
Thanks,
Walter
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Anyway the problem is related to calling the function A120 twice. If the function is called only once the problem is not there.
Walter
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Walter Kramer
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Walter Kramer

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page