|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
Anonymous Guest
|
Posted: Mon Dec 05, 2005 7:24 am Post subject: compiler warning message |
|
|
Please note the spurious warning message given when the following code is compiled:
MODULE m
CONTAINS
INTEGER FUNCTION f(a)
REAL, INTENT(IN) :: a
f=NINT(a)
END FUNCTION f
END MODULE m
!
PROGRAM p
USE m
IMPLICIT NONE
INTEGER, PARAMETER :: n=5
INTEGER :: i,j(n)
INTRINSIC COUNT,REAL
!
DO i=1,n
j(i)=i
END DO
WRITE(*,*)f(REAL(COUNT(j(1:n)>2)))
END PROGRAM p
Simon Mason
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7942 Location: Salford, UK
|
Posted: Mon Dec 05, 2005 2:04 pm Post subject: compiler warning message |
|
|
Simon
Thanks for this. We will aim to investigate the problem.
Paul |
|
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
|