PROGRAM C2112
IMPLICIT NONE
TYPE Ragged
  REAL , DIMENSION(:) , POINTER :: Ragged_row
END TYPE
INTEGER :: i 
INTEGER , PARAMETER :: n=3
TYPE (Ragged) , DIMENSION(1:n) :: Lower_Diag
  DO i=1,n
    ALLOCATE(Lower_Diag(i)%Ragged_Row(1:i))
    PRINT *,' Type in the values for row ' , i
    READ *,Lower_Diag(I)%Ragged_Row(1:i)
  END DO
  DO i=1,n
    PRINT *,Lower_Diag(i)%Ragged_Row(1:i)
  END DO
END PROGRAM C2112