[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / implicit04.f90
blob9c065834f361e5ff57cae4e4909b5bc65b80e8a8
1 ! RUN: %python %S/test_errors.py %s %flang_fc1
2 subroutine s
3 parameter(a=1.0)
4 !ERROR: IMPLICIT NONE statement after PARAMETER statement
5 implicit none
6 end subroutine