diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2024-03-07 18:44:14 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-03-07 18:44:14 (GMT) |
| commit | bc0c42695f7669f64c00c357880b0dfecf30e343 (patch) | |
| tree | 255130069dbbd12c08b3a791ce5278de508b0e57 | |
| parent | c872acae63feb8b391f6919b94c2d2d06deb1a19 (diff) | |
| download | hdf5-bc0c42695f7669f64c00c357880b0dfecf30e343.zip hdf5-bc0c42695f7669f64c00c357880b0dfecf30e343.tar.gz hdf5-bc0c42695f7669f64c00c357880b0dfecf30e343.tar.bz2 | |
addressed compilation errors with gfortran 4.8 (#4082)
| -rw-r--r-- | fortran/src/H5Eff.F90 | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/fortran/src/H5Eff.F90 b/fortran/src/H5Eff.F90 index c519ddc..a95028f 100644 --- a/fortran/src/H5Eff.F90 +++ b/fortran/src/H5Eff.F90 @@ -388,26 +388,26 @@ CONTAINS IF (PRESENT(func)) func_def = func IF (PRESENT(line)) line_def = line - IF (PRESENT(arg1)) arg1_def = C_LOC(arg1) - IF (PRESENT(arg2)) arg2_def = C_LOC(arg2) - IF (PRESENT(arg3)) arg3_def = C_LOC(arg3) - IF (PRESENT(arg4)) arg4_def = C_LOC(arg4) - IF (PRESENT(arg5)) arg5_def = C_LOC(arg5) - IF (PRESENT(arg6)) arg6_def = C_LOC(arg6) - IF (PRESENT(arg7)) arg7_def = C_LOC(arg7) - IF (PRESENT(arg8)) arg8_def = C_LOC(arg8) - IF (PRESENT(arg9)) arg9_def = C_LOC(arg9) - IF (PRESENT(arg10)) arg10_def = C_LOC(arg10) - IF (PRESENT(arg11)) arg11_def = C_LOC(arg11) - IF (PRESENT(arg12)) arg12_def = C_LOC(arg12) - IF (PRESENT(arg13)) arg13_def = C_LOC(arg13) - IF (PRESENT(arg14)) arg14_def = C_LOC(arg14) - IF (PRESENT(arg15)) arg15_def = C_LOC(arg15) - IF (PRESENT(arg16)) arg16_def = C_LOC(arg16) - IF (PRESENT(arg17)) arg17_def = C_LOC(arg17) - IF (PRESENT(arg18)) arg18_def = C_LOC(arg18) - IF (PRESENT(arg19)) arg19_def = C_LOC(arg19) - IF (PRESENT(arg20)) arg20_def = C_LOC(arg20) + IF (PRESENT(arg1)) arg1_def = C_LOC(arg1(1:1)) + IF (PRESENT(arg2)) arg2_def = C_LOC(arg2(1:1)) + IF (PRESENT(arg3)) arg3_def = C_LOC(arg3(1:1)) + IF (PRESENT(arg4)) arg4_def = C_LOC(arg4(1:1)) + IF (PRESENT(arg5)) arg5_def = C_LOC(arg5(1:1)) + IF (PRESENT(arg6)) arg6_def = C_LOC(arg6(1:1)) + IF (PRESENT(arg7)) arg7_def = C_LOC(arg7(1:1)) + IF (PRESENT(arg8)) arg8_def = C_LOC(arg8(1:1)) + IF (PRESENT(arg9)) arg9_def = C_LOC(arg9(1:1)) + IF (PRESENT(arg10)) arg10_def = C_LOC(arg10(1:1)) + IF (PRESENT(arg11)) arg11_def = C_LOC(arg11(1:1)) + IF (PRESENT(arg12)) arg12_def = C_LOC(arg12(1:1)) + IF (PRESENT(arg13)) arg13_def = C_LOC(arg13(1:1)) + IF (PRESENT(arg14)) arg14_def = C_LOC(arg14(1:1)) + IF (PRESENT(arg15)) arg15_def = C_LOC(arg15(1:1)) + IF (PRESENT(arg16)) arg16_def = C_LOC(arg16(1:1)) + IF (PRESENT(arg17)) arg17_def = C_LOC(arg17(1:1)) + IF (PRESENT(arg18)) arg18_def = C_LOC(arg18(1:1)) + IF (PRESENT(arg19)) arg19_def = C_LOC(arg19(1:1)) + IF (PRESENT(arg20)) arg20_def = C_LOC(arg20(1:1)) hdferr = h5epush_c(err_stack, cls_id, maj_id, min_id, msg, LEN(msg), & file_def, func_def, line_def, & |