gcc/testsuite/gfortran.fortran-torture/compile/pr65758.f90

   1       SUBROUTINE USER_MESSAGE (MESSAGE)
   2       CHARACTER MSGL*1
   3       CHARACTER, INTENT(IN) :: MESSAGE*(*)
   4       CHARACTER(21)  :: LEADER(4)
   5       CHARACTER(132) :: MSG_TEXT*132
   6       LOGICAL, SAVE  :: FIRST
   7  100  IR = MIN (LM, IL+INDEX(MESSAGE(MIN(LM,IL+1):LM)//MSGL,MSGL))
   8       IF (FIRST) THEN
   9         IF (INDEX(MESSAGE(IL:IR),'WARN') .NE. 0) THEN
  10           K = 2
  11         ELSE IF (INDEX(MESSAGE(IL:IR),'INFORM') .NE. 0) THEN
  12           K = 3
  13           GO TO 100
  14         ENDIF
  15       ELSE
  16         IF (MESSAGE(IR:IR) .EQ. MSGL) THEN
  17           MSG_TEXT = LEADER(K)//MESSAGE(IL+1:IR-1)
  18         ENDIF
  19       ENDIF
  20       END