Fix line-length issue with trial programs in GFortran

awvwgk · awvwgk · commit a1ab7854175b · 2022-04-12T16:30:38.000+02:00
diff --git a/config/CMakeLists.txt b/config/CMakeLists.txt
@@ -39,7 +39,11 @@ check_fortran_source_compiles(
 )
 set(WITH_QP ${WITH_QP} PARENT_SCOPE)
 check_fortran_source_compiles(
-  "integer, parameter :: xdp = merge(-1, selected_real_kind(18), selected_real_kind(18) == selected_real_kind(33)); complex(xdp) :: x; end"
+  "
+  integer, parameter :: xdp = merge(-1, selected_real_kind(18), selected_real_kind(18) == selected_real_kind(33))
+  complex(xdp) :: x
+  end
+  "
   WITH_XDP
 )
 set(WITH_XDP ${WITH_XDP} PARENT_SCOPE)
diff --git a/config/meson.build b/config/meson.build
@@ -55,7 +55,10 @@ if get_option('openmp')
 endif
 
 with_qp = fc.compiles('integer, parameter :: qp = selected_real_kind(33); complex(qp) :: x; end')
-with_xdp = fc.compiles('integer, parameter :: xdp = merge(-1, selected_real_kind(18),selected_real_kind(18) == selected_real_kind(33)); complex(xdp) :: x; end')
+with_xdp = fc.compiles('''
+integer, parameter :: xdp = merge(-1, selected_real_kind(18),selected_real_kind(18) == selected_real_kind(33))
+complex(xdp) :: x
+end''')
 add_project_arguments(
   '-DWITH_QP=@0@'.format(with_qp.to_int()),
   '-DWITH_XDP=@0@'.format(with_xdp.to_int()),

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,11 @@ check_fortran_source_compiles(`
`39`	`39`	`)`
`40`	`40`	`set(WITH_QP ${WITH_QP} PARENT_SCOPE)`
`41`	`41`	`check_fortran_source_compiles(`
`42`		`- "integer, parameter :: xdp = merge(-1, selected_real_kind(18), selected_real_kind(18) == selected_real_kind(33)); complex(xdp) :: x; end"`
	`42`	`+ "`
	`43`	`+ integer, parameter :: xdp = merge(-1, selected_real_kind(18), selected_real_kind(18) == selected_real_kind(33))`
	`44`	`+ complex(xdp) :: x`
	`45`	`+ end`
	`46`	`+ "`
`43`	`47`	`WITH_XDP`
`44`	`48`	`)`
`45`	`49`	`set(WITH_XDP ${WITH_XDP} PARENT_SCOPE)`