BUG: Array Expression with Assumed Size Arrays

MORE INFORMATION

The Microsoft FORTRAN PowerStation "Language Guide" states that arrays in an array expression must "conform", and that one of the requirements for conforming is that the dimensions of the array be known at compile time. The dimensions are not known at compile time for assumed size arrays. Therefore, they are not conforming and must not be used in array expressions.

NOTE: If the array is declared as adjustable, an appropriate error message is generated: NOTE: If the array expression contains both a fully specified array and assumed size array, the correct error message is generated:

Sample Code

Compile options: none

      INTEGER*4 FUNCTION SP(s,n)
      INTEGER*4 n, s(*)
c      INTEGER*4 n, s(n) !Adjustable size declaration
c      INTEGER*4 t(2)    !Fully specified array
      s = n
c      t = s             !Fully specified array and assumed size array
      SP = s(1)
      END

      integer sp, s(2)
      n = 2
      s = 1
      i = SP(s,n)
      print *, i, s
      end