Applied some fixes and improvements

* more extensive warnings when building Fortran code
* file names of the fortran tests reflect now the test program which
  produced them

Update #409

Author: eugenwintersberger

CMakeLists.txt

@@ -188,6 +188,9 @@ message(STATUS "Link with: ${NAPI_LINK_LIBS}")
 #------------------------------------------------------------------------------
 if(ENABLE_FORTRAN90 OR ENABLE_FORTRAN77)
     enable_language(Fortran)
+    
+    set(CMAKE_Fortran_FLAGS ${CMAKE_Fortran_FLAGS} "-Wall -fbacktrace -pedantic -fcheck=all -Wextra")
+    message(STATUS ${CMAKE_Fortran_FLAGS})
 endif()
 
 #-----------------------------------------------------------------------------

cmake_include/CompilerChecks.cmake

@@ -86,4 +86,5 @@ if (UNIX)
         check_add_cxx_compiler_flags("-Wall -Wno-unused-variable "
                                      "-Wno-sign-compare -Wno-comment")
     endif(ENABLE_CXX)
+        
 endif(UNIX)

test/CMakeLists.txt

@@ -44,6 +44,7 @@ if(WITH_HDF5)
     add_executable(napi_test_hdf5 napi_test.c)
     target_link_libraries(napi_test_hdf5 NeXus_Shared_Library)
     add_test(NAME "NAPI-C-HDF5-test" COMMAND napi_test_hdf5)
+    
     add_executable(napi_attra_test_hdf5 napi_attra_test.c)
     target_link_libraries(napi_attra_test_hdf5 NeXus_Shared_Library)
     add_test(NAME "NAPI-C-HDF5-attra-test" COMMAND napi_attra_test_hdf5)
@@ -54,6 +55,7 @@ if(WITH_HDF4)
     target_link_libraries(napi_test_hdf4 NeXus_Shared_Library)
     add_test(NAME "NAPI-C-HDF4-test"
              COMMAND napi_test_hdf4)
+             
     add_executable(napi_attra_test_hdf4 napi_attra_test.c)
     target_link_libraries(napi_attra_test_hdf4 NeXus_Shared_Library) 
     add_test(NAME "NAPI-C-HDF4-attra-test" COMMAND napi_attra_test_hdf4)

test/napif4_test.f

@@ -62,7 +62,7 @@
       DATA U_BUFFER /0,1,2,3,4,5,6/
       EQUIVALENCE (CHAR_BUFFER, CHAR_BUFFER_B)
 
-      IF (NXOPEN('NXtest.nxs', NXACC_CREATE, FILEID) .NE. NX_OK) STOP
+      IF (NXOPEN('napif4.nxs', NXACC_CREATE, FILEID) .NE. NX_OK) STOP
       IF (NXMAKEGROUP(FILEID, 'entry', 'NXentry') .NE. NX_OK) STOP
       IF (NXOPENGROUP(FILEID, 'entry', 'NXentry') .NE. NX_OK) STOP
          IF (NXMAKEDATA(FILEID, 'ch_data', NX_CHAR, 1, 10) .NE. NX_OK) 
@@ -160,7 +160,7 @@
       IF (NXCLOSEGROUP(FILEID) .NE. NX_OK) STOP
       IF (NXCLOSE(FILEID) .NE. NX_OK) STOP
 C *** read data
-      IF (NXOPEN('NXtest.nxs', NXACC_READ, FILEID) .NE. NX_OK) STOP
+      IF (NXOPEN('napif4.nxs', NXACC_READ, FILEID) .NE. NX_OK) STOP
       IF (NXGETATTRINFO(FILEID, J) .NE. NX_OK) STOP
       IF (J .GT. 0) WRITE(*,'(1X,A,I2)') 
      +  'Number of global attributes: ', J

test/napif5_test.f

@@ -63,7 +63,7 @@
       DATA U_BUFFER /0,1,2,3,4,5,6/
       EQUIVALENCE (CHAR_BUFFER, CHAR_BUFFER_B)
 
-      IF (NXOPEN('NXtest.nxs', NXACC_CREATE5, FILEID) .NE. NX_OK) STOP
+      IF (NXOPEN('napif5.nxs', NXACC_CREATE5, FILEID) .NE. NX_OK) STOP
       IF (NXMAKEGROUP(FILEID, 'entry', 'NXentry') .NE. NX_OK) STOP
       IF (NXOPENGROUP(FILEID, 'entry', 'NXentry') .NE. NX_OK) STOP
          IF (NXMAKEDATA(FILEID, 'ch_data', NX_CHAR, 1, 10) .NE. NX_OK) 
@@ -161,7 +161,7 @@
       IF (NXCLOSEGROUP(FILEID) .NE. NX_OK) STOP
       IF (NXCLOSE(FILEID) .NE. NX_OK) STOP
 C *** read data
-      IF (NXOPEN('NXtest.nxs', NXACC_READ, FILEID) .NE. NX_OK) STOP
+      IF (NXOPEN('napif5.nxs', NXACC_READ, FILEID) .NE. NX_OK) STOP
       IF (NXGETATTRINFO(FILEID, J) .NE. NX_OK) STOP
       IF (J .GT. 0) WRITE(*,'(1X,A,I2)') 
      +  'Number of global attributes: ', J

test/napif_test.f

@@ -63,7 +63,7 @@
       DATA U_BUFFER /0,1,2,3,4,5,6/
       EQUIVALENCE (CHAR_BUFFER, CHAR_BUFFER_B)
 
-      IF (NXOPEN('NXtest.nxs', NXACC_CREATEXML, FILEID) .NE. NX_OK) STOP
+      IF (NXOPEN('napif.nxs', NXACC_CREATEXML, FILEID) .NE. NX_OK) STOP
       IF (NXMAKEGROUP(FILEID, 'entry', 'NXentry') .NE. NX_OK) STOP
       IF (NXOPENGROUP(FILEID, 'entry', 'NXentry') .NE. NX_OK) STOP
          IF (NXMAKEDATA(FILEID, 'ch_data', NX_CHAR, 1, 10) .NE. NX_OK) 
@@ -160,7 +160,7 @@
       IF (NXCLOSEGROUP(FILEID) .NE. NX_OK) STOP
       IF (NXCLOSE(FILEID) .NE. NX_OK) STOP
 C *** read data
-      IF (NXOPEN('NXtest.nxs', NXACC_READ, FILEID) .NE. NX_OK) STOP
+      IF (NXOPEN('napif.nxs', NXACC_READ, FILEID) .NE. NX_OK) STOP
       IF (NXGETATTRINFO(FILEID, J) .NE. NX_OK) STOP
       IF (J .GT. 0) WRITE(*,'(1X,A,I2)') 
      +  'Number of global attributes: ', J