Merge branch 'test_YAML_types' into 'development'

testing YAML_types

See merge request damask/DAMASK!832

src/YAML_parse.f90

@@ -48,7 +48,7 @@ subroutine YAML_parse_init()
 #ifdef FYAML
   print'(/,1x,a)', 'libfyaml powered'
 #else
-  call selfTest()
+  call YAML_parse_selfTest()
 #endif
 
 end subroutine YAML_parse_init
@@ -870,7 +870,7 @@ end function to_flow
 !--------------------------------------------------------------------------------------------------
 !> @brief Check correctness of some YAML functions.
 !--------------------------------------------------------------------------------------------------
-subroutine selfTest()
+subroutine YAML_parse_selfTest()
 
   if (indentDepth(' a') /= 1)     error stop 'indentDepth'
   if (indentDepth('a')  /= 0)     error stop 'indentDepth'
@@ -1031,7 +1031,7 @@ subroutine selfTest()
 
   end block parse
 
-end subroutine selfTest
+end subroutine YAML_parse_selfTest
 #endif
 
 end module YAML_parse

src/YAML_types.f90

@@ -150,6 +150,7 @@ module YAML_types
 
   public :: &
     YAML_types_init, &
+    YAML_types_selfTest, &
 #ifdef __GFORTRAN__
     output_as1dStr, &                                       !ToDo: Hack for GNU. Remove later
 #endif
@@ -164,7 +165,7 @@ subroutine YAML_types_init
 
   print'(/,1x,a)', '<<<+-  YAML_types init  -+>>>'
 
-  call selfTest()
+  call YAML_types_selfTest()
 
 end subroutine YAML_types_init
 
@@ -172,7 +173,7 @@ end subroutine YAML_types_init
 !--------------------------------------------------------------------------------------------------
 !> @brief Check correctness of some type bound procedures.
 !--------------------------------------------------------------------------------------------------
-subroutine selfTest()
+subroutine YAML_types_selfTest()
 
   scalar: block
     type(tScalar), target :: s
@@ -266,7 +267,7 @@ subroutine selfTest()
 
   end block dict
 
-end subroutine selfTest
+end subroutine YAML_types_selfTest
 
 
 !---------------------------------------------------------------------------------------------------

src/crystal.f90

@@ -2223,7 +2223,7 @@ end function crystal_isotropic_mu
 !--------------------------------------------------------------------------------------------------
 !> @brief Check correctness of some crystal functions.
 !--------------------------------------------------------------------------------------------------
-subroutine crystal_selfTest
+subroutine crystal_selfTest()
 
   real(pREAL), dimension(:,:,:), allocatable :: CoSy
   real(pREAL), dimension(:,:),   allocatable :: system

src/test/DAMASK_test.f90

@@ -12,6 +12,7 @@ program DAMASK_test
   use test_crystal
   use test_rotations
   use test_IO
+  use test_YAML_types
   use test_HDF5_utilities
 
   external :: quit
@@ -57,6 +58,10 @@ program DAMASK_test
   call test_IO_run()
   write(IO_STDOUT,fmt='(a)') ok
 
+  write(IO_STDOUT,fmt=fmt, advance='no') 'YAML_types','...'
+  call test_YAML_types_run()
+  write(IO_STDOUT,fmt='(a)') ok
+
   write(IO_STDOUT,fmt=fmt, advance='no') 'HDF5_utilities','...'
   call test_HDF5_utilities_run()
   write(IO_STDOUT,fmt='(a)') ok

src/test/test_YAML_types.f90

@@ -0,0 +1,17 @@
+module test_YAML_types
+  use YAML_types
+
+  implicit none(type,external)
+
+  private
+  public :: test_YAML_types_run
+
+  contains
+
+subroutine test_YAML_types_run()
+
+  call YAML_types_selfTest()
+
+end subroutine test_YAML_types_run
+
+end module test_YAML_types