Skip to content

Commit 07edf3c

Browse files
committed
add same check to other location of the gfortran workaround
1 parent ec48c12 commit 07edf3c

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/csv_module.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -520,7 +520,7 @@ subroutine add_vector(me,val,int_fmt,real_fmt,trim_str)
520520

521521
do i=1,size(val)
522522

523-
#if defined __GFORTRAN__
523+
#if ( defined __GFORTRAN__ ) && ( __GNUC__ <= 9 )
524524
! This is a stupid workaround for gfortran bugs (tested with 7.2.0)
525525
select type (val)
526526
type is (character(len=*))

0 commit comments

Comments
 (0)