[flang] segmentation fault in Fujitsu test 0908_0016,7

[tblah]

Building 0908_0016 or 0908_0017 results in a segmentation fault inside of flang frontend.

To reproduce flang 0908_0016.f90.

flang version 21.0.0git (git@github.com:llvm/llvm-project.git 992458d26bbd2b8744408dbb4ab8d6b6058301d6)
Target: aarch64-unknown-linux-gnu
Thread model: posix
InstalledDir: /home/tomecl01/build/release-assertions/bin
Build config: +assertions

Building with gfortran 13.3.0 gives Error: Assumed-type variable xx at (1) may only be used as actual argument

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Tom Eccles (tblah)

Building

0908_0016 or 0908_0017 results in a segmentation fault inside of flang frontend.

To reproduce flang 0908_0016.f90.

flang version 21.0.0git (git@<!-- -->github.com:llvm/llvm-project.git 992458d26bbd2b8744408dbb4ab8d6b6058301d6)
Target: aarch64-unknown-linux-gnu
Thread model: posix
InstalledDir: /home/tomecl01/build/release-assertions/bin
Build config: +assertions

Building with gfortran 13.3.0 gives Error: Assumed-type variable xx at (1) may only be used as actual argument

[klausler]

Probably fixed by #140768. If not, please let me know.

[klausler]

I checked; that patch does indeed fix these two cases.

[tblah]

Closing as fixed by the above PR. Thanks Peter.