      PROGRAM Fortran_Introspective                               
      CHARACTER*54 M1,M2,M3,M4,M5                           
      DATA M1/54HPROGRAM Fortran_Introspective                         /
      DATA M2/54HCHARACTER*54 M1,M2,M3,M4,M5                           /
      DATA M3/54HPRINT M4,M1,M2,1,M1,2,M2,3,M3,4,M4,5,M5,M3,M5         /
      DATA M4/54H(2(7X,A54/)5(7X,6HDATA M,I1,4H/54H,A54,1H//)(7X,A54)) /
      DATA M5/54HEND                                                   /
      PRINT M4,M1,M2,1,M1,2,M2,3,M3,4,M4,5,M5,M3,M5         
      END                                                   
