<= 10

Author: jacobwilliams

src/csv_module.F90

@@ -520,7 +520,7 @@ subroutine add_vector(me,val,int_fmt,real_fmt,trim_str)
 
     do i=1,size(val)
 
-#if ( defined __GFORTRAN__ ) && ( __GNUC__ <= 9 )
+#if ( defined __GFORTRAN__ ) && ( __GNUC__ <= 10 )
         ! This is a stupid workaround for gfortran bugs (tested with 7.2.0)
         select type (val)
         type is (character(len=*))
@@ -966,7 +966,7 @@ subroutine get_column(me,icol,r,status_ok)
 
         do i=1,me%n_rows  ! row loop
 
-#if ( defined __GFORTRAN__ ) && ( __GNUC__ <= 9 )
+#if ( defined __GFORTRAN__ ) && ( __GNUC__ <= 10 )
             ! the following is a workaround for gfortran bugs:
             select type (r)
             type is (character(len=*))