View previous topic :: View next topic |
Author |
Message |
Anonymous Guest
|
Posted: Fri Aug 05, 2005 7:51 am Post subject: copmiler warning message |
|
|
Please advise on the following program. A compiler warning message is indicated
suggesting a conflict between the module definitions. I do not think there is
anything wrong with the program, although if the USE m1 statement in MODULE m2
is moved outside SUBROUTINE s1, the message goes away. This fix is not available
in my original program, and I would like to know whether the message is spurious
or whether I do need to find a work around.
Best wishes,
Simon Mason
MODULE m1
TYPE d1
REAL r1
REAL r2
END TYPE d1
TYPE d2
REAL r3
TYPE(d1) d1
END TYPE d2
END MODULE m1
!
MODULE m2
CONTAINS
SUBROUTINE s1 (a1)
USE m1
TYPE(d2) a1
RETURN
END SUBROUTINE s1
END MODULE m2
!
MODULE m3
USE m2
INTEGER i
END MODULE m3
!
PROGRAM p1
USE m3
USE m1
END PROGRAM p1 |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7931 Location: Salford, UK
|
Posted: Fri Aug 05, 2005 8:35 am Post subject: copmiler warning message |
|
|
Simon
The warning is spurious and can be ignored.
If the warning is a nuisance then use /IGNORE 662.
Regards |
|
Back to top |
|
|
sparge
Joined: 11 Apr 2005 Posts: 371
|
Posted: Fri Aug 05, 2005 9:56 am Post subject: copmiler warning message |
|
|
I was under the impression that the USE statement had to come before the CONTAINS statement, BICBW. |
|
Back to top |
|
|
JvO
Joined: 18 Aug 2005 Posts: 15
|
Posted: Thu Aug 18, 2005 9:04 am Post subject: copmiler warning message |
|
|
IMHO the warning is not correct.
I tryed the program with an older version (4.0.189) of FTN95
This gave no messages.
Comments from vendor ?
write(*,*)transfer((/778985834,1869504886,1702130543,1785296754 &
&,1635205227,1868849518,1819160175 /),(/'x'/)) ; end
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7931 Location: Salford, UK
|
Posted: Wed Sep 07, 2005 1:17 am Post subject: copmiler warning message |
|
|
This bug has now been fixed.
I cannot see anything in the Standard that outlaws this construction.
In any case FTN95 now allows it without a warning. |
|
Back to top |
|
|
|