Lahey Support
08-15-2003, 01:24 AM
Aleksandar,
I think that the problem is that PARAMETER values must be resolved
at compile time. Your 2nd example works fine because SIZE() is assigned
at run-time. At compile time there is no way to know the SIZE() of a
subroutine argument.
Claudio Ona
[address removed]
On Monday, February 21, 2000 12:18 PM, Aleksandar Donev [address removed] wrote:
> Hello Fortran experts,
>
> I have two challenging questions for the Fortran 90 mind.
> First, how is the intrinsic SIZE implemented. This is not in the
> standard, but there must be a common strategy. Namely, we are all aware
> that extra information has to be passed with the array for SHAPE and
> SIZE to work. Where is this extra information? Fortran 77 passes a
> simple address for arrays, and Fortran 90 must comply. So is this extra
> information maybe in the address before the array beginning?
>
> Also, Lahey complains to the following code, which to me seems like a
> fine specification statement:
> SUBROUTINE Test(array)
> REAL, DIMENSION(:) :: array
> ! Here is the statement that lf95 considers a bad specification
> statement:
> INTEGER, PARAMETER :: array_size=SIZE(array)
> ....
> END SUBROUTINE Test
> I get an error like "invalid type, attribute or size for actual argument
> of intrinsic size". If I change it to:
> INTEGER :: array_size
> array_size=SIZE(array)
> Everything works fine?!?
>
> Please help,
> Aleksandar
> --
> _____________________________________________
> Donev Aleksandar
> [address removed]
> Physics Department, Michigan State University
> (517) 432-6770
> _____________________________________________
>
>
> -----------------------------------------------------
> To unsubscribe from the Fortran Forum, send a message
> to [address removed] with the following command as
> the first and only line of the message body:
> unsubscribe fortran
> -----------------------------------------------------
-----------------------------------------------------
To unsubscribe from the Fortran Forum, send a message
to [address removed] with the following command as
the first and only line of the message body:
unsubscribe fortran
-----------------------------------------------------
I think that the problem is that PARAMETER values must be resolved
at compile time. Your 2nd example works fine because SIZE() is assigned
at run-time. At compile time there is no way to know the SIZE() of a
subroutine argument.
Claudio Ona
[address removed]
On Monday, February 21, 2000 12:18 PM, Aleksandar Donev [address removed] wrote:
> Hello Fortran experts,
>
> I have two challenging questions for the Fortran 90 mind.
> First, how is the intrinsic SIZE implemented. This is not in the
> standard, but there must be a common strategy. Namely, we are all aware
> that extra information has to be passed with the array for SHAPE and
> SIZE to work. Where is this extra information? Fortran 77 passes a
> simple address for arrays, and Fortran 90 must comply. So is this extra
> information maybe in the address before the array beginning?
>
> Also, Lahey complains to the following code, which to me seems like a
> fine specification statement:
> SUBROUTINE Test(array)
> REAL, DIMENSION(:) :: array
> ! Here is the statement that lf95 considers a bad specification
> statement:
> INTEGER, PARAMETER :: array_size=SIZE(array)
> ....
> END SUBROUTINE Test
> I get an error like "invalid type, attribute or size for actual argument
> of intrinsic size". If I change it to:
> INTEGER :: array_size
> array_size=SIZE(array)
> Everything works fine?!?
>
> Please help,
> Aleksandar
> --
> _____________________________________________
> Donev Aleksandar
> [address removed]
> Physics Department, Michigan State University
> (517) 432-6770
> _____________________________________________
>
>
> -----------------------------------------------------
> To unsubscribe from the Fortran Forum, send a message
> to [address removed] with the following command as
> the first and only line of the message body:
> unsubscribe fortran
> -----------------------------------------------------
-----------------------------------------------------
To unsubscribe from the Fortran Forum, send a message
to [address removed] with the following command as
the first and only line of the message body:
unsubscribe fortran
-----------------------------------------------------