| OLD | NEW |
|---|
| 1 ! Check that we can write a module file, that it has a correct MD5 sum, | 1 ! Check that we can write a module file, that it has a correct MD5 sum, |
| 2 ! and that we can read it back. | 2 ! and that we can read it back. |
| 3 ! | 3 ! |
| 4 ! { dg-do compile } | 4 ! { dg-do compile } |
| 5 module foo | 5 module foo |
| 6 integer(kind=4), parameter :: pi = 3_4 | 6 integer(kind=4), parameter :: pi = 3_4 |
| 7 end module foo | 7 end module foo |
| 8 | 8 |
| 9 program test | 9 program test |
| 10 use foo | 10 use foo |
| 11 print *, pi | 11 print *, pi |
| 12 end program test | 12 end program test |
| 13 ! { dg-final { scan-module "foo" "MD5:596df8f39d3ddc0b847771cadcb26274" } } | 13 ! { dg-final { scan-module "foo" "MD5:5632bcd379cf023bf7e663e91d52fa12" } } |
| 14 ! { dg-final { cleanup-modules "foo" } } | 14 ! { dg-final { cleanup-modules "foo" } } |
| 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