View previous topic :: View next topic |
Author |
Message |
JvO
Joined: 18 Aug 2005 Posts: 15
|
Posted: Thu Aug 18, 2005 9:20 am Post subject: FTN95 Error with internal procedure |
|
|
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 |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Mon Aug 22, 2005 3:37 am Post subject: FTN95 Error with internal procedure |
|
|
Yes thank you. This is a bug which I have logged with reference number 2207.
Paul |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Tue Aug 23, 2005 12:57 pm Post subject: FTN95 Error with internal procedure |
|
|
This bug has now been fixed |
|
Back to top |
|
|
JvO
Joined: 18 Aug 2005 Posts: 15
|
Posted: Wed Aug 24, 2005 6:19 am Post subject: FTN95 Error with internal procedure |
|
|
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 |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed Aug 24, 2005 6:32 am Post subject: FTN95 Error with internal procedure |
|
|
Hopefully sometime during September. |
|
Back to top |
|
|
|