diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2014-04-09 01:08:31 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2014-04-09 01:08:31 (GMT) |
| commit | b95d364d842609c5275f5ad41d332930f189d2a9 (patch) | |
| tree | 2b6e4830a8a73e0c0f8c1bbe82f040dc698ba3a3 | |
| parent | 5b87658bd0f7042ad935537f4df2a99cdd87d781 (diff) | |
| download | hdf5-b95d364d842609c5275f5ad41d332930f189d2a9.zip hdf5-b95d364d842609c5275f5ad41d332930f189d2a9.tar.gz hdf5-b95d364d842609c5275f5ad41d332930f189d2a9.tar.bz2 | |
[svn-r24990] 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 |