URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do compile }
|
! { dg-do compile }
|
!
|
!
|
! Check conflicts:
|
! Check conflicts:
|
! - PARAMETER and BIND(C), PR fortran/33310
|
! - PARAMETER and BIND(C), PR fortran/33310
|
! - INTRINSIC and ENTRY, PR fortran/33284
|
! - INTRINSIC and ENTRY, PR fortran/33284
|
!
|
!
|
|
|
subroutine a
|
subroutine a
|
intrinsic cos
|
intrinsic cos
|
entry cos(x) ! { dg-error "ENTRY attribute conflicts with INTRINSIC" }
|
entry cos(x) ! { dg-error "ENTRY attribute conflicts with INTRINSIC" }
|
real x
|
real x
|
x = 0
|
x = 0
|
end subroutine
|
end subroutine
|
|
|
module m
|
module m
|
use iso_c_binding
|
use iso_c_binding
|
implicit none
|
implicit none
|
TYPE, bind(C) :: the_distribution
|
TYPE, bind(C) :: the_distribution
|
INTEGER(c_int) :: parameters(1)
|
INTEGER(c_int) :: parameters(1)
|
END TYPE the_distribution
|
END TYPE the_distribution
|
TYPE (the_distribution), parameter, bind(C) :: & ! { dg-error "PARAMETER attribute conflicts with BIND.C." }
|
TYPE (the_distribution), parameter, bind(C) :: & ! { dg-error "PARAMETER attribute conflicts with BIND.C." }
|
the_beta = the_distribution((/0/))
|
the_beta = the_distribution((/0/))
|
end module m
|
end module m
|
|
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.