Array Constructors in Initialisation Statements

Named array constants can be created:

    INTEGER, DIMENSION(3), &
       PARAMETER :: Unit_vec = (/1,1,1/)
    CHARACTER(LEN=*), DIMENSION(3),    &
     PARAMETER :: lights =             & 
             (/'RED  ','BLUE ','GREEN'/)
    REAL, DIMENSION(3,3), PARAMETER :: &
          unit_matrix = RESHAPE( &
          (/1,0,0,0,1,0,0,0,1/),(/3,3/))

In the second statement all strings must be same length.

For more information, click here

Now try this question