gcc/testsuite/gfortran.dg/pr105501.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { 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