| ! { dg-do compile } | |
| ! | |
| ! Test the fix for PR96325 in which the typebound procedure reference | |
| ! 'foo' was applied to an intrinsic type component without generating | |
| ! an error. The result of the expression was the value of the arg.. | |
| ! | |
| ! Contributed by Gerhardt Steinmetz <gscfq@t-online.de> | |
| ! | |
| implicit none | |
| type t2 | |
| integer r1 | |
| end type | |
| type(t2) :: t | |
| integer :: a | |
| a = t%r1%foo(1) ! { dg-error "is not an inquiry reference" } | |
| if (a == 42) stop | |
| end |