Blob Blame History Raw
diff -up OpenMolcas-v19.11-0d9635ae238b52b977b259aa5f5cddc26e8a2a91/src/Modules/filesystem.f.int8 OpenMolcas-v19.11-0d9635ae238b52b977b259aa5f5cddc26e8a2a91/src/Modules/filesystem.f
--- OpenMolcas-v19.11-0d9635ae238b52b977b259aa5f5cddc26e8a2a91/src/Modules/filesystem.f.int8	2019-11-12 12:59:54.000000000 +0100
+++ OpenMolcas-v19.11-0d9635ae238b52b977b259aa5f5cddc26e8a2a91/src/Modules/filesystem.f	2020-01-14 14:20:11.724841106 +0100
@@ -1,4 +1,4 @@
-************************************************************************
+s************************************************************************
 * This file is part of OpenMolcas.                                     *
 *                                                                      *
 * OpenMolcas is free software; you can redistribute it and/or modify   *
@@ -110,7 +110,7 @@
         implicit none
         character(len=*) :: path
         integer, optional, intent(out) :: err
-        integer :: loc_err
+        integer(MOLCAS_C_INT) :: loc_err
         call mkdir_c(trim(path)//C_NULL_CHAR,
      &        int(o'772', MOLCAS_C_INT), loc_err)
         if (present(err)) err = loc_err