1! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
2subroutine s
3  parameter(a=1.0)
4  !ERROR: IMPLICIT NONE statement after PARAMETER statement
5  implicit none
6end subroutine
7