deftype_1.f90

来自「linux下编程用 编译软件」· F90 代码 · 共 7 行

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