test/Parser/type.f95


1
2
3
4
5
6
7
8
9
10

! RUN: %flang -verify -fsyntax-only < %s
PROGRAM typetest
  TYPE Point
    REAL X, Y
  END TYPE Point

  TYPE foo 22 ! expected-error {{expected line break or ';' at end of statement}}
    INTEGER K
  END TYPE
END PROGRAM typetest