Anonymous Guest
|
Posted: Mon Oct 24, 2005 10:29 am Post subject: error message using /check |
|
|
The following program runs OK as long as it is not compiled with /check.
Using the /check option generates a fatal error message when trying to
print the shape of the 3-dimensional array.
PROGRAM p1
IMPLICIT NONE
!
INTEGER, PARAMETER :: n1=4
INTEGER, PARAMETER :: n2=3
INTEGER, PARAMETER :: n3=2
!
REAL, ALLOCATABLE :: a1(:,
REAL, ALLOCATABLE :: a2(:,:,
!
ALLOCATE (a1(n1,n2))
ALLOCATE (a2(n1,n2,n3))
!
WRITE(*,*)shape(a1(:,1:1))
WRITE(*,*)shape(a2(:,:,1:1))
!
END PROGRAM p1
Simon Mason
|
|