| OLD | NEW |
|---|
| 1 ! { dg-do compile } | 1 ! { dg-do compile } |
| 2 | 2 |
| 3 ! FIXME: Remove once polymorphic PASS is resolved | |
| 4 ! { dg-options "-w" } | |
| 5 | |
| 6 ! PR fortran/37638 | 3 ! PR fortran/37638 |
| 7 ! If a PASS(arg) is invalid, a call to this routine later would ICE in | 4 ! If a PASS(arg) is invalid, a call to this routine later would ICE in |
| 8 ! resolving. Check that this also works for GENERIC, in addition to the | 5 ! resolving. Check that this also works for GENERIC, in addition to the |
| 9 ! PR's original test. | 6 ! PR's original test. |
| 10 | 7 |
| 11 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> | 8 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> |
| 12 | 9 |
| 13 module foo_mod | 10 module foo_mod |
| 14 implicit none | 11 implicit none |
| 15 | 12 |
| (...skipping 38 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 54 | 51 |
| 55 call a%makenull() | 52 call a%makenull() |
| 56 call a%null2 () ! { dg-error "no matching specific binding" } | 53 call a%null2 () ! { dg-error "no matching specific binding" } |
| 57 | 54 |
| 58 Return | 55 Return |
| 59 End Subroutine foo_free | 56 End Subroutine foo_free |
| 60 | 57 |
| 61 end module foo_mod | 58 end module foo_mod |
| 62 | 59 |
| 63 ! { dg-final { cleanup-modules "foo_mod" } } | 60 ! { dg-final { cleanup-modules "foo_mod" } } |
| 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