[flang-commits] [flang] [flang] Warn when F128 is unsupported (PR #102147)

[Daniel Chen via flang-commits]

DanielCChen wrote:

@tblah 
This PR caused some regressions in our in-house test run. 
```
    DOUBLE PRECISION, ALLOCATABLE :: doubleArrAlloc( :,: )
    doubleArrAlloc = RESHAPE([ (((REAL(j, 16) / REAL(i, 16)),&
                                    j = 1, 10), i = 1, 10) ], [ 10,10 ])
END
```
The above code is supposed to compile successfully,  but Flang now failed with
```
error: Semantic errors in a.f
./a.f:2:35: error: too many actual arguments for intrinsic 'real'
      doubleArrAlloc = RESHAPE([ (((REAL(j, 16) / REAL(i, 16)),&
                                    ^^^^^^^^^^^
./a.f:2:49: error: too many actual arguments for intrinsic 'real'
      doubleArrAlloc = RESHAPE([ (((REAL(j, 16) / REAL(i, 16)),&
                                                  ^^^^^^^^^^^

```

https://github.com/llvm/llvm-project/pull/102147