PROGRAM MAIN
IMPLICIT NONE

!动态地为数组分配内存
!REAL,DIMENSION(:,:),ALLOCATABLE :: A
!与下面的语句等价
REAL,ALLOCATABLE :: A(:,:)

REAL :: U
!随机地产生u
CALL RANDOM_NUMBER(U)

!对u的判断
IF(U < 0.5)THEN
 ALLOCATE(A(5,8))
ELSE
 ALLOCATE(A(7,4))
END IF

!数据输出，位置为屏幕
PRINT *, SHAPE(A)

END PROGRAM MAIN

!CVF 6.6 下可编译运行