From 6dd39e45beba3c6485dd77493fa8ad6f2c614f21 Mon Sep 17 00:00:00 2001 From: James Laird Date: Thu, 9 Jun 2005 10:04:08 -0500 Subject: [svn-r10883] Purpose: Bug fix Description: H5test_kind.f90 had an error when being compiled by pgf90. Solution: A variable wasn't declared. Declared it to fix the bug. Platforms tested: heping, mir --- fortran/src/H5test_kind.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/src/H5test_kind.f90 b/fortran/src/H5test_kind.f90 index 4af696f..db2971e 100644 --- a/fortran/src/H5test_kind.f90 +++ b/fortran/src/H5test_kind.f90 @@ -3,7 +3,7 @@ ! This fortran program generates H5fortran_detect.f90 ! program test_kind - integer :: i, j, last, kind_numbers(10) + integer :: i, j, ii, last, kind_numbers(10) last = -1 ii = 0 j = selected_int_kind(18) -- cgit v0.12