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