| OLD | NEW |
|---|
| 1 ! { dg-do compile } | 1 ! { dg-do compile } |
| 2 ! | 2 ! |
| 3 ! Fixes PR38171 a regression caused by the fix for PR37706. | 3 ! Fixes PR38171 a regression caused by the fix for PR37706. |
| 4 ! | 4 ! |
| 5 ! Contributed by Scot Breitenfeld <brtnfld@hdfgroup.org> | 5 ! Contributed by Scot Breitenfeld <brtnfld@hdfgroup.org> |
| 6 ! | 6 ! |
| 7 MODULE H5GLOBAL | 7 MODULE H5GLOBAL |
| 8 IMPLICIT NONE | 8 IMPLICIT NONE |
| 9 INTEGER :: H5P_flags | 9 INTEGER :: H5P_flags |
| 10 INTEGER :: H5P_DEFAULT_F | 10 INTEGER :: H5P_DEFAULT_F |
| 11 EQUIVALENCE(H5P_flags, H5P_DEFAULT_F) | 11 EQUIVALENCE(H5P_flags, H5P_DEFAULT_F) |
| 12 END MODULE H5GLOBAL | 12 END MODULE H5GLOBAL |
| 13 MODULE HDF5 | 13 MODULE HDF5 |
| 14 USE H5GLOBAL | 14 USE H5GLOBAL |
| 15 END MODULE HDF5 | 15 END MODULE HDF5 |
| 16 PROGRAM fortranlibtest | 16 PROGRAM fortranlibtest |
| 17 USE HDF5 | 17 USE HDF5 |
| 18 IMPLICIT NONE | 18 IMPLICIT NONE |
| 19 INTEGER :: ii | 19 INTEGER :: ii |
| 20 ii = H5P_DEFAULT_F | 20 ii = H5P_DEFAULT_F |
| 21 END PROGRAM fortranlibtest | 21 END PROGRAM fortranlibtest |
| 22 ! { dg-final { cleanup-modules "H5GLOBAL HD5" } } | 22 ! { dg-final { cleanup-modules "H5GLOBAL HDF5" } } |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 3050029:
[gcc] GCC 4.5.0=>4.5.1 (Closed)
Base URL: ssh://git@gitrw.chromium.org:9222/nacl-toolchain.git