Slava Zakharin 7095a86fc3 [flang][hlfir] Fixed where/elsewhere mask saving in case of conflicts. ...

The assignments inside where/elsewhere may affect variables participating
in the mask expression, but execution of the assignments must not affect
the established control mask(s) (F'18 10.2.3.2 p. 13).

The following example must print all 42's:
```
program test
  integer c(3)
  logical :: mask(3) = .true.
  where (mask)
     c = f()
  end where
  print *, c
contains
  integer function f()
    mask = .false.
    f = 42
  end function f
end program test
```

Reviewed By: tblah

Differential Revision: https://reviews.llvm.org/D156959

2023-08-04 09:19:43 -07:00

33 KiB

Raw Blame History

View Raw