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 

FTN95 Error with internal procedure

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



Joined: 18 Aug 2005
Posts: 15

PostPosted: Thu Aug 18, 2005 9:20 am    Post subject: FTN95 Error with internal procedure Reply with quote


The following program, looks quite legal to me,
gives error message : duplicate name.
Code:

! Koenig.f95
module M1

INTEGER, public :: p
public :: AA
private :: BB

CONTAINS
subroutine AA ()
p = BB ()
CONTAINS
subroutine AA_1 ()
integer :: i
i = BB ()
end subroutine AA_1

function BB( ) result(r)
integer :: r
R = 1
end function BB
end subroutine AA

function BB() result(Q)
integer :: Q
Q = 2
end function BB
end module M1

program P1
USE M1
implicit none
p = 0
call AA ()
print *, p
end program P1


! D:FortranTest>ftn95 koenig.f95 /lgo
! [FTN95/Win32 Ver. 4.8.0 Copyright (C) Salford Software Ltd 1993-2005]
! PROCESSING MODULE [<M1> FTN95/Win32 v4.8.0]
! 0012) integer :: i
! WARNING - Variable I has been given a value but never used
! NO ERRORS, 1 WARNING [<AA_1> FTN95/Win32 v4.8.0]
! NO ERRORS [<BB> FTN95/Win32 v4.8.0]
! NO ERRORS [<AA> FTN95/Win32 v4.8.0]
! 0022) function BB() result(Q)
! *** Duplicate sub-program name M1!BB
! 1 ERROR [<BB> FTN95/Win32 v4.8.0]
! NO ERRORS [<M1> FTN95/Win32 v4.8.0]
! NO ERRORS [<P1> FTN95/Win32 v4.8.0]
! *** Compilation failed


JvO
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


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

PostPosted: Mon Aug 22, 2005 3:37 am    Post subject: FTN95 Error with internal procedure Reply with quote

Yes thank you. This is a bug which I have logged with reference number 2207.

Paul
Back to top
View user's profile Send private message AIM Address
PaulLaidler
Site Admin


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

PostPosted: Tue Aug 23, 2005 12:57 pm    Post subject: FTN95 Error with internal procedure Reply with quote

This bug has now been fixed
Back to top
View user's profile Send private message AIM Address
JvO



Joined: 18 Aug 2005
Posts: 15

PostPosted: Wed Aug 24, 2005 6:19 am    Post subject: FTN95 Error with internal procedure Reply with quote

Now that the bug is fixed, when will the downloadable program be updated ?

[JvO]



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 Aug 24, 2005 6:32 am    Post subject: FTN95 Error with internal procedure Reply with quote

Hopefully sometime during September.
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