regresssion with Fortran kind REAL128 after version 19 ? #125691
Description
the following code compiles without error with flang version 19 but fails to compile with versions 20 and 21
> cat test_real128.F90
subroutine xreal128 (x, n)
use,intrinsic :: iso_fortran_env, only: real128
real(real128),dimension(*) :: x
integer, intent(out) :: n
n = x(1)/8
end subroutine xreal128
(module load llvm/19 ; flang-new -c test_real128.F90 ; flang-new --version ; )
flang-new version 19.1.7 (https://github.com/llvm/llvm-project.git cd70802)
Target: x86_64-unknown-linux-gnu
(module load llvm/20 ; flang-new -c test_real128.F90 ; flang-new --version ; )
error: Semantic errors in test_real128.F90
./test_real128.F90:3:5: error: REAL(KIND=-1) is not a supported type
real(real128),dimension(*) :: x
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang version 20.1.0-rc1 (https://github.com/llvm/llvm-project.git 0cca13f)
Target: x86_64-unknown-linux-gnu
(module load llvm/21 ; flang-new -c test_real128.F90 ; flang-new --version ; )
error: Semantic errors in test_real128.F90
./test_real128.F90:3:5: error: REAL(KIND=-1) is not a supported type
real(real128),dimension(*) :: x
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang version 21.0.0git (https://github.com/llvm/llvm-project.git 077e0c1)
Target: x86_64-unknown-linux-gnu
this error makes it impossible to build openmpi or mpich