What's problem is?
That little module is wrong ?
The FTN90 Salford Compiler WinNT say Internal Error...
-----------------------------------------------------------
[Salford FTN90/Win32 v2.185, Copyright (c) Salford Software Ltd.
1992-1997]
[ & Copyright (c) The Numerical Algorithms Group
1991-1997]
Licensed to: DR.NORBERTO FUEYO
Organisation: uNIVERSITY OF zARAGOZA
WARNING E:\BUG3.f90 0028 Unused dummy argument OI9
WARNING E:\BUG3.f90 0028 Unused dummy argument OI8
WARNING E:\BUG3.f90 0028 Unused dummy argument OI7
WARNING E:\BUG3.f90 0028 Unused dummy argument OI6
WARNING E:\BUG3.f90 0028 Unused dummy argument OI5
WARNING E:\BUG3.f90 0028 Unused dummy argument OI4
WARNING E:\BUG3.f90 0028 Unused dummy argument OI3
WARNING E:\BUG3.f90 0028 Unused dummy argument OI2
WARNING E:\BUG3.f90 0028 Unused dummy argument OI1
WARNING E:\BUG3.f90 0028 Unused dummy argument CADENA
Panic: Backend failure
Internal Error -- please report this bug
*** Compilation abandoned
-----------------------------------------------------------
I don't know !!
HELP ME! Please, very Thanks!
Miguel
------x-x-xCUT-x-x-x-x-x-x-x-----------------------------------------------
module mA
implicit none
contains
!=============================================================================
subroutine fprintf_integer(cadena,oi1,oi2,oi3,oi4,oi5,oi6,oi7,oi8,oi9)
!=============================================================================
implicit none
character(100) :: cadena
integer,optional :: oi1,oi2,oi3,oi4,oi5,oi6,oi7,oi8,oi9
!-----------------------------------------------------------------------------
integer :: ind!, b_ind, signo, Num1, Point, Num2
ind = 0
contains
function AdvanceCad()
implicit none
character :: AdvanceCad
ind = ind + 1
AdvanceCad = 'a'
end function AdvanceCad
end subroutine fprintf_integer
end module mA
--------------------x-x-x-x-xx-x-x-x--------------------------------------
______________________________________________________________________________
|\\/\/\/\/\/| _____________ |
| | / \ | Miguel Murillo
| | | Elvis is | | [log in to unmask]
| __ __ | | dead ! | | Voice: +34-976-761000 ext. 5052
| | | | | | | | | Fax: +34-976-761882
C\ |0 | |0 | /O | bart. | |
| "" _ "" | \_ __________/ | University of Zaragoza
| | // | Computer Fluid Dynamic (CFD)
\'-----'/ --' |
_____/-----\_____ | Computer:bart.cps.unizar.es
/ | | \ | (155.210.32.114)
____________________________________|_________________________________________
Linux: The choice of a GNU generation
"My opinions are my own, and I've get *lots* of them!"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|