1! { dg-do compile } 2! 3! Check conflicts: 4! - PARAMETER and BIND(C), PR fortran/33310 5! - INTRINSIC and ENTRY, PR fortran/33284 6! 7 8subroutine a 9 intrinsic cos 10entry cos(x) ! { dg-error "ENTRY attribute conflicts with INTRINSIC" } 11 real x 12 x = 0 13end subroutine 14 15module m 16 use iso_c_binding 17 implicit none 18 TYPE, bind(C) :: the_distribution 19 INTEGER(c_int) :: parameters(1) 20 END TYPE the_distribution 21 TYPE (the_distribution), parameter, bind(C) :: & ! { dg-error "PARAMETER attribute conflicts with BIND.C." } 22 the_beta = the_distribution((/0/)) 23end module m 24 25end 26