[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / save02.f90
blob29bec4fb77b0ccbf9fe780c10202ea359c314b14
1 ! RUN: %flang_fc1 -fsyntax-only -fno-automatic %s 2>&1 | FileCheck %s --allow-empty
2 ! Checks that -fno-automatic implies the SAVE attribute.
3 ! This same subroutine appears in test save01.f90 where it is an
4 ! error case due to the absence of both SAVE and -fno-automatic.
5 subroutine foo
6 integer, target :: t
7 !CHECK-NOT: error:
8 integer, pointer :: p => t
9 end