gcc/testsuite/gfortran.dg/iso_fortran_env_9.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2018" }
   3 !
   4 ! Check diagnostics for new F2023 named constants
   5 ! in ISO_FORTRAN_ENV
   6 !
   7
   8 subroutine foo
   9   use iso_fortran_env
  10   implicit none
  11   logical(kind=logical8) :: x ! { dg-error "has no IMPLICIT type" }
  12 end subroutine
  13
  14 subroutine bar
  15   use iso_fortran_env, only : logical8 ! { dg-error "not in the selected standard" }
  16   use iso_fortran_env, only : logical16 ! { dg-error "not in the selected standard" }
  17   use iso_fortran_env, only : logical32 ! { dg-error "not in the selected standard" }
  18   use iso_fortran_env, only : logical64 ! { dg-error "not in the selected standard" }
  19   use iso_fortran_env, only : real16 ! { dg-error "not in the selected standard" }
  20   implicit none
  21 end subroutine
  22
  23 subroutine gee
  24   use iso_fortran_env, only : int8
  25   use iso_fortran_env, only : int16
  26   use iso_fortran_env, only : int32
  27   use iso_fortran_env, only : int64
  28   implicit none
  29 end subroutine