浏览代码

- fix type syntax

Olivier Aumage 9 年之前
父节点
当前提交
feb426b173
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      include/fstarpu_mod.f90

+ 1 - 1
include/fstarpu_mod.f90

@@ -2165,7 +2165,7 @@ module fstarpu_mod
 
                         real(c_double) :: FSTARPU_SZ_C_DOUBLE_dummy
                         real(c_float) :: FSTARPU_SZ_C_FLOAT_dummy
-                        integer(c_char) :: FSTARPU_SZ_C_CHAR_dummy
+                        character(c_char) :: FSTARPU_SZ_C_CHAR_dummy
                         integer(c_int) :: FSTARPU_SZ_C_INT_dummy
                         integer(c_intptr_t) :: FSTARPU_SZ_C_INTPTR_T_dummy
                         type(c_ptr) :: FSTARPU_SZ_C_PTR_dummy