diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2014-04-09 01:08:08 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2014-04-09 01:08:08 (GMT) |
| commit | aaf5c1d4003f6825b6df37390bd5b88053be0f31 (patch) | |
| tree | 208dbcca2c41e591ca3f99f320205ac41d1c15da | |
| parent | ae846315702f9b038c3c0ed7c6d565f179d45a05 (diff) | |
| download | hdf5-aaf5c1d4003f6825b6df37390bd5b88053be0f31.zip hdf5-aaf5c1d4003f6825b6df37390bd5b88053be0f31.tar.gz hdf5-aaf5c1d4003f6825b6df37390bd5b88053be0f31.tar.bz2 | |
[svn-r24989] Problem:
AIX compiler complains that:
ex_ds1.f90, line 89.16: 1512-050 (W) Field separator is missing, in literal FMT specifier, after edit descriptor X. A comma is assumed.
Line 89:
WRITE(*,'(/,5X 3(A,1X),I0,A,L1)') 'Is',TRIM(DS_1_NAME),&
Solution:
Added the missing comma after "5X".
Tested:
AIX system.
| -rw-r--r-- | hl/fortran/examples/ex_ds1.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hl/fortran/examples/ex_ds1.f90 b/hl/fortran/examples/ex_ds1.f90 index 377a641..d77f8e0 100644 --- a/hl/fortran/examples/ex_ds1.f90 +++ b/hl/fortran/examples/ex_ds1.f90 @@ -86,7 +86,7 @@ PROGRAM example_ds ! Test if dimension Scale Attached CALL H5DSis_attached_f(did, dsid, DIM1, is_attached, err) - WRITE(*,'(/,5X 3(A,1X),I0,A,L1)') 'Is',TRIM(DS_1_NAME),& + WRITE(*,'(/,5X,3(A,1X),I0,A,L1)') 'Is',TRIM(DS_1_NAME),& 'attached to dimension',DIM1,' ... ',is_attached |