51 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2!Test rewriting of misparsed statement function definitions3!into array element assignment statements.4 5program main6 real sf(1)7 integer :: j = 18!CHECK: sf(int(j,kind=8))=1._49 sf(j) = 1.10end11 12function func13 real sf(1)14 integer :: j = 115!CHECK: sf(int(j,kind=8))=2._416 sf(j) = 2.17 func = 0.18end19 20subroutine subr21 real sf(1)22 integer :: j = 123!CHECK: sf(int(j,kind=8))=3._424 sf(j) = 3.25end26 27module m28 interface29 module subroutine smp30 end31 end interface32end33submodule(m) sm34 contains35 module procedure smp36 real sf(1)37 integer :: j = 138!CHECK: sf(int(j,kind=8))=4._439 sf(j) = 4.40 end41end42 43subroutine block44 block45 real sf(1)46 integer :: j = 147!CHECK: sf(int(j,kind=8))=5._448 sf(j) = 5.49 end block50end51