[flang] Fix internal error with DATA-statement style initializers
authorDaniil Dudkin <d.dudkin@partner.samsung.com>
Fri, 6 May 2022 15:18:33 +0000 (18:18 +0300)
committerDaniil Dudkin <d.dudkin@partner.samsung.com>
Fri, 6 May 2022 15:21:34 +0000 (18:21 +0300)
commit2c27d5b36a55c75a33a2a97198d0f0cd1d3d42bf
tree6fb5b6cc5ead5ba22c0ad43f551297167517b3c9
parente12905b4d5f95952600515901b82da0a8eefcd73
[flang] Fix internal error with DATA-statement style initializers

The code below causes flang to crash with an exception.
After fixing the crash flang with an internal error "no symbol found for 'bar'"
This change fixes all the issues.

  program name
    implicit none
    integer, parameter :: bar = 1
    integer foo(bar) /bar*2/
  end program name

Reviewed By: kiranchandramohan, klausler

Differential Revision: https://reviews.llvm.org/D124914
flang/lib/Semantics/data-to-inits.cpp
flang/lib/Semantics/resolve-names.cpp
flang/test/Semantics/resolve111.f90 [new file with mode: 0644]