diff options
Diffstat (limited to 'hl/fortran/test/tstlite.f90')
| -rw-r--r-- | hl/fortran/test/tstlite.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90 index 314bf09..60fc659 100644 --- a/hl/fortran/test/tstlite.f90 +++ b/hl/fortran/test/tstlite.f90 @@ -1361,8 +1361,8 @@ SUBROUTINE test_attributes() INTEGER, DIMENSION(DIM1) :: bufr2 ! Data buffer REAL(C_FLOAT), DIMENSION(DIM1) :: buf3 ! Data buffer REAL(C_FLOAT), DIMENSION(DIM1) :: bufr3 ! Data buffer - DOUBLE PRECISION, DIMENSION(DIM1) :: buf4 ! Data buffer - DOUBLE PRECISION, DIMENSION(DIM1) :: bufr4 ! Data buffer + REAL(C_DOUBLE), DIMENSION(DIM1) :: buf4 ! Data buffer + REAL(C_DOUBLE), DIMENSION(DIM1) :: bufr4 ! Data buffer INTEGER :: errcode ! Error flag INTEGER :: i, n ! general purpose integer INTEGER(SIZE_T) size ! size of attribute array |