1! { dg-do compile }
2
3! Abstract Types.
4! Check for parser errors.
5
6MODULE 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
13END MODULE m
14