deftype_1.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 7 行

! { dg-do compile }
! Checks for excess errors.
implicit none
dimension i(10) ! { dg-error "has no IMPLICIT type" }
i = 2
end