URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_operator_10.f03] - Rev 699
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile }
! PR51791 and original testcase for PR46328.
!
! Contributer by Thomas Koenig <tkoenig@gcc.gnu.org>
!
module field_module
implicit none
type ,abstract :: field
contains
procedure(field_op_real) ,deferred :: multiply_real
generic :: operator(*) => multiply_real
end type
abstract interface
function field_op_real(lhs,rhs)
import :: field
class(field) ,intent(in) :: lhs
real ,intent(in) :: rhs
class(field) ,allocatable :: field_op_real
end function
end interface
end module
program main
use field_module
implicit none
class(field) ,pointer :: u
u = (u)*2. ! { dg-error "check that there is a matching specific" }
end program
! { dg-final { cleanup-modules "field_module" } }
Go to most recent revision | Compare with Previous | Blame | View Log