Dear Fortran 90 experts,
why can't I use LBOUND intrinsic function for array of character strings?
Here is what I am trying to compile.
% cat test.f90
FUNCTION rd_choice (value, table) RESULT (iostat)
!**********************************************************************
! Read a choice in the table.
!**********************************************************************
IMPLICIT NONE
! arguments.
INTEGER, INTENT (OUT) :: value
CHARACTER (LEN = *), DIMENSION (:), INTENT (IN) :: table
INTEGER :: iostat
value = LBOUND (table)
iostat = 0
END FUNCTION rd_choice
And xlf compiler gives me folowing message.
% xlf90 -F:f90 -c test.f90
"test.f90", line 15.5: 1516-077 (S) Conformable array is required in this
context.
** rd_choice === End of Compilation 1 ===
1501-511 Compilation failed for file test.f90.
Conformable array? what does this message mean? I have only one array.
Conformable to which one?
Yours confused,
------------------------------------------------------------------------------
Seong-Gon Kim, Ph.D. (202) 404-4419 [work] (703) 866-9584 [home]
Code 6690 (202) 404-7546 [Fax]
Naval Research Laboratory [log in to unmask] [email]
Washington, DC 20375-5320 http://www.pa.msu.edu/~kimsg/ [www]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|