2 ! PR51791 and original testcase for PR46328.
4 ! Contributer by Thomas Koenig <tkoenig@gcc.gnu.org>
8 type ,abstract :: field
10 procedure(field_op_real) ,deferred :: multiply_real
11 generic :: operator(*) => multiply_real
14 function field_op_real(lhs,rhs)
16 class(field) ,intent(in) :: lhs
17 real ,intent(in) :: rhs
18 class(field) ,allocatable :: field_op_real
26 class(field) ,pointer :: u
27 u = (u)*2. ! { dg-error "check that there is a matching specific" }