increased compliance

Author: scivision

CMakeLists.txt

@@ -12,8 +12,6 @@ endif()
 if(${CMAKE_Fortran_COMPILER_ID} STREQUAL GNU)
   if(${CMAKE_Fortran_COMPILER_VERSION} VERSION_GREATER_EQUAL 8.1)
     list(APPEND FFLAGS -std=f2018)
-  else()
-    list(APPEND FFLAGS -std=f2008ts)
   endif()
 
   list(APPEND FFLAGS -mtune=native -Wall -Wextra -Wpedantic -Werror=array-bounds -fbacktrace -fexceptions)
@@ -30,7 +28,7 @@ endif()
 
 set(DEMO_COARRAYS FALSE)
 if(${CMAKE_Fortran_COMPILER_ID} STREQUAL Intel)
-    add_compile_options(-coarray=shared)
+    list(APPEND FFLAGS -coarray=shared)
     link_libraries(-coarray=shared)
     set(DEMO_COARRAYS TRUE)
 elseif(${CMAKE_Fortran_COMPILER_ID} STREQUAL GNU)
@@ -46,13 +44,15 @@ elseif(${CMAKE_Fortran_COMPILER_ID} STREQUAL GNU)
 endif()
 
 add_library(lineclip lineclipping.f90)
+target_compile_options(lineclip PRIVATE ${FFLAGS})
 
 set(okcomp GNU Intel)
 if(CMAKE_Fortran_COMPILER_ID IN_LIST okcomp)
   add_library(assert assert.f90)
 else()
   add_library(assert assert_legacy.f90)
 endif()
+target_compile_options(assert PRIVATE ${FFLAGS})
 
 add_executable(RunLineclip DemoLineclip.f90)
 target_compile_options(RunLineclip PRIVATE ${FFLAGS})

lineclipping.f90

@@ -55,8 +55,9 @@ elemental subroutine cohensutherland(xmin,ymax,xmax,ymin, &
 integer k1, k2, opt ! just plain integers
 real(wp) :: x,y
 
- nan = ieee_value(1.,ieee_quiet_nan)
-
+nan = ieee_value(1.,ieee_quiet_nan)
+y = nan
+x = nan
 
 ! check for trivially outside lines
 k1 = getclip(x1,y1,xmin,xmax,ymin,ymax)