Fortran configury: Ensure F08 real_kinds are actually valid kinds

Issue: #5090

Signed-off-by: Luke Robison <[email protected]>

Author: lrbison

m4/aclocal_fc.f90

@@ -183,8 +183,11 @@ END PROGRAM FC_AVAIL_KINDS
 PROGRAM FC08_AVAIL_KINDS
       USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : stdout=>OUTPUT_UNIT, integer_kinds, real_kinds, logical_kinds
       IMPLICIT NONE
-      INTEGER :: ik, jk, k, max_decimal_prec
+      INTEGER :: ik, jk, k, kk, max_decimal_prec
       INTEGER :: num_rkinds, num_ikinds, num_lkinds
+      logical :: found_rkinds( 1:SIZE(real_kinds) )
+      character(len=1) :: sep
+
 
       ! Find integer KINDs
 
@@ -203,24 +206,29 @@ PROGRAM FC08_AVAIL_KINDS
 
       num_rkinds = SIZE(real_kinds)
 
+      ! some compilers (ACfL 24) reported real=16 kind, but refused to
+      ! compile with it.  Verify the kind can be selected in SELECTED_REAL_KIND.
+      found_rkinds(:) = .false.
       max_decimal_prec = 1
 
       prec: DO ik = 2, 36
          exp: DO jk = 1, 700
             k = SELECTED_REAL_KIND(ik,jk)
             IF(k.LT.0) EXIT exp
+            do kk = 1,num_rkinds
+               if (real_kinds(kk) == k) found_rkinds(kk) = .true.
+            end do
             max_decimal_prec = ik
          ENDDO exp
       ENDDO prec
 
+      sep = ""
       DO k = 1, num_rkinds
-         WRITE(stdout,'(I0)', ADVANCE='NO') real_kinds(k)
-         IF(k.NE.num_rkinds)THEN
-            WRITE(stdout,'(A)',ADVANCE='NO') ','
-         ELSE
-            WRITE(stdout,'()')
-         ENDIF
+         if (.not. found_rkinds(k)) cycle
+         WRITE(stdout,'(A,I0)', ADVANCE='NO') trim(sep), real_kinds(k)
+         sep = ","
       ENDDO
+      WRITE(stdout,'()')
 
      WRITE(stdout,'(I0)') max_decimal_prec
      WRITE(stdout,'(I0)') num_ikinds