PROGRAM alloca
    INTEGER :: n1, n2,st
    REAL, DIMENSION(:,:), ALLOCATABLE :: B
    
    READ(*,*) n1, n2
    ALLOCATE(B(n1,n2),STAT=st)
    IF ( st /= 0 ) STOP " Errore allocazione B(:,:)"
    
		WRITE(*,*) 'Bounds and size of B(:,:): ', &
			&	LBOUND(b), UBOUND(b), SIZE(b)
    DEALLOCATE(B)
    STOP
  END PROGRAM alloca