> For REAL(kind=10) I found (gfortran.dg/large_real_kind_form_io_1.f90):
>
> { dg-require-effective-target fortran_large_real }
> ! This should be 10 on systems that support kind=10
> integer, parameter :: k = selected_real_kind (precision (0.0_8) + 1)
> real(kind=k) :: a,b(2), c, eps
>
> Given the fortran_large_real requirement, is it viable to use:
> real(kind=10) :: r10
> real(kind=16) :: r16
> in the testcases to be created?
No. It's only viable to use the code you quoted:
integer, parameter :: k = selected_real_kind (precision (0.0_8) + 1)
real(kind=k) :: r_large
Because we might have one of those large kinds, but we won't have both
(this is hard-coded in the library).