blob: 6525880e06e35670f1ad5fc2d7dca661ed598a46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
! { dg-options "-std=f2003" }
!
! Fortran 2008: TYPE ( intrinsic-type-spec )
!
implicit none
type(integer) :: a ! { dg-error "Fortran 2008" }
type(real) :: b ! { dg-error "Fortran 2008" }
type(logical) :: c ! { dg-error "Fortran 2008" }
type(character) :: d ! { dg-error "Fortran 2008" }
type(double precision) :: e ! { dg-error "Fortran 2008" }
end
|
