llvm/flang/test/semantics/implicit04.f90

6 lines
123 B
Fortran
Raw Normal View History

subroutine s
parameter(a=1.0)
!ERROR: IMPLICIT NONE statement after PARAMETER statement
implicit none
end subroutine