diff --git a/lapack-netlib/SRC/clartg.f90 b/lapack-netlib/SRC/clartg.f90
index 6231f8520..c41f36ad1 100644
--- a/lapack-netlib/SRC/clartg.f90
+++ b/lapack-netlib/SRC/clartg.f90
@@ -113,6 +113,7 @@
 !> \endverbatim
 !
 subroutine CLARTG( f, g, c, s, r )
+   use iso_fortran_env
    use LA_CONSTANTS, &
    only: wp=>sp, zero=>szero, one=>sone, two=>stwo, czero, &
          safmin=>ssafmin, safmax=>ssafmax