gcc/testsuite/gfortran.dg/abstract_type_2.f03

   1 ! { dg-do "compile" }
   2
   3 ! Abstract Types.
   4 ! Check for parser errors.
   5
   6 MODULE m
   7   IMPLICIT NONE
   8
   9   TYPE, ABSTRACT, EXTENDS(abst_t), ABSTRACT :: error_t ! { dg-error "Duplicate ABSTRACT attribute" }
  10     INTEGER :: y
  11   END TYPE error_t ! { dg-error "END MODULE" }
  12
  13 END MODULE m
  14 ! { dg-final { cleanup-modules "m" } }