forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

copmiler warning message

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support
View previous topic :: View next topic  
Author Message
Anonymous
Guest





PostPosted: Fri Aug 05, 2005 7:51 am    Post subject: copmiler warning message Reply with quote

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: 7916
Location: Salford, UK

PostPosted: Fri Aug 05, 2005 8:35 am    Post subject: copmiler warning message Reply with quote

Simon

The warning is spurious and can be ignored.
If the warning is a nuisance then use /IGNORE 662.

Regards
Back to top
View user's profile Send private message AIM Address
sparge



Joined: 11 Apr 2005
Posts: 371

PostPosted: Fri Aug 05, 2005 9:56 am    Post subject: copmiler warning message Reply with quote

I was under the impression that the USE statement had to come before the CONTAINS statement, BICBW.
Back to top
View user's profile Send private message Send e-mail
JvO



Joined: 18 Aug 2005
Posts: 15

PostPosted: Thu Aug 18, 2005 9:04 am    Post subject: copmiler warning message Reply with quote

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
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Wed Sep 07, 2005 1:17 am    Post subject: copmiler warning message Reply with quote

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
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
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