[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / label13.f90
blob8c5a901e280005d1a4f28a10a8ac6ff561acb021
1 ! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
2 ! CHECK: branch into loop body from outside
3 ! CHECK: the loop branched into
5 subroutine s(a)
6 integer i
7 real a(10)
8 do 10 i = 1,10
9 if (a(i) < 0.0) then
10 goto 20
11 end if
12 30 continue
13 a(i) = 1.0
14 10 end do
15 goto 40
16 20 a(i) = -a(i)
17 goto 30
18 40 continue
19 end subroutine s