| ! { dg-do compile } | |
| ! | |
| ! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
| ! | |
| program p | |
| type t | |
| character(:), pointer :: a | |
| end type | |
| type(t) :: z | |
| character((0.)/0), target :: c = 'abc' ! { dg-error "Arithmetic NaN" } | |
| z%a => c | |
| ! The associate statement was not needed to trigger the ICE. | |
| associate (y => z%a) | |
| print *, y | |
| end associate | |
| end |