! { dg-do compile }
! PR fortran/105501 - check for non-optional spaces between adjacent keywords

MODULE M
  TYPE T
     INTEGER I
  END TYPE
CONTAINS
  SUBROUTINE S(X)
    CLASS(T), POINTER :: X
    SELECTTYPE (X) ! blank between SELECT and TYPE is optional
    TYPEIS (T)     ! { dg-error "Mangled derived type definition" }
    END SELECT
  END SUBROUTINE
END MODULE