forums.silverfrost.com

[KL]

Dear Paul,

The error occurs only with the compiler option /Checkmate. I have
run the program with FTN95 Version 4.7 and a bat file:

del comp.lis
del *.obj
del *.exe

ftn95 Error_Argument.f95 /Checkmate /underflow /link >> comp.lis

sdbg Error_Argument.exe

The error message is
"Attempt to call a routine with argument number three
containing too few array elements"

Without the compiler option /Checkmate, the error
does not occur.


The program is:

Winapp

Program Error_Argument

! With FTN95 Version 4.70 and the compiler option
! ftn95 Error_Argument.f95 /Checkmate /underflow >> comp.lis
! this programs leads to the error output:

! "Attempt to call a routine with argument number three
! containing too few array elements"
!
! Comment: This error occurs only with the option /CHECKMATE

Implicit None
Integer :: nDim

! --------------------------------------------------------------------
Interface
Subroutine Broyden ( x_Broyden_new, F_Broyden_new )
Implicit None
Real , Dimension ( , Intent (in ) :: x_Broyden_new
Real , Dimension ( , Intent (out) :: F_Broyden_new
End Subroutine Broyden
End Interface
! --------------------------------------------------------------------

Integer , Parameter :: mDim_Broyden = 10

Real , Dimension ( mDim_Broyden ) :: x_Broyden_new , &
F_Broyden_new

nDim = 4

x_Broyden_new (1:nDim) = -9.0

Call Broyden ( x_Broyden_new (1:nDim) , &
F_Broyden_new (1:nDim) )

End Program Error_Argument


Subroutine Broyden ( x_Broyden_new , F_Broyden_new )

Implicit None

! --------------------------------------------------------------------
! Interface ! Funcv does not need an interface
! Subroutine Funcv (n,x,f) ! However, the interface does not
! solve the problem
! Integer , Intent (in) :: n
! Real , Dimension (n), Intent (in) :: x
! Real , Dimension (n), Intent (out) :: f
! End Subroutine funcv
! End Interface
! --------------------------------------------------------------------

Real , Dimension ( , Intent (in ) :: x_Broyden_new
Real , Dimension ( , Intent (out) :: F_Broyden_new

Integer :: n

n = size (x_Broyden_new)

write (*,*) 'n = ', n ! gives the correct answer
write (*,*) size (x_Broyden_new) ! gives the correct answer
write (*,*) size (F_Broyden_new) ! gives the correct answer
! stop

! Call Funcv ( n, x_Broyden_new, F_Broyden_new ) ! gives error
! Call Funcv ( n, x_Broyden_new (1:4), F_Broyden_new (1:4) ) ! gives error
Call Funcv ( n, x_Broyden_new (1:n), F_Broyden_new (1:n) ) ! gives error
! ##########


End Subroutine Broyden

Subroutine Funcv (n,x,f)

Implicit None

Integer , Intent (in) :: n
Real , Dimension (n), Intent (in) :: x
Real , Dimension (n), Intent (out) :: f

f (1) = - x (1)**2 - x (2)**2 - x (3)**2 + x (4)
f (2) = + x (1)**2 + x (2)**2 + x (3)**2 + x (4)**2 -1.
f (3) = x (1) - x (2)
f (4) = x (2) - x (3)

Write (*,*) 'f1 = ', f (1)
Write (*,*) 'f2 = ', f (2)
Write (*,*) 'f3 = ', f (3)
Write (*,*) 'f4 = ', f (4)

End Subroutine funcv

[PaulLaidler]

I will investigate this and get back to you as soon as I can.

[PaulLaidler]

Klaus

This problem appears to have already been fixed.

[KL]

Paul, in what version has this problem been fixed?
Best regards, Klaus

[PaulLaidler]

Klaus

If I have run the test correctly it will be OK in version 5.0.
If it is not fixed for you, please let me know what operating system you are using.

[KL]

Paul, I have installed FTN95 Version 5.01 and the error is still there. I cannot see any difference to version 4.7. I am using Windows XP with Service Pack 1 and 2 installed.