112795Swpaul! { dg-do compile } 212795Swpaul! 312795Swpaul! Check conflicts: 412795Swpaul! - PARAMETER and BIND(C), PR fortran/33310 512795Swpaul! - INTRINSIC and ENTRY, PR fortran/33284 612795Swpaul! 712795Swpaul 8100441Scharniersubroutine a 912795Swpaul intrinsic cos 1012795Swpaulentry cos(x) ! { dg-error "ENTRY attribute conflicts with INTRINSIC" } 1112795Swpaul real x 12100441Scharnier x = 0 1312795Swpaulend subroutine 1412795Swpaul 1512795Swpaulmodule m 16100441Scharnier use iso_c_binding 1712795Swpaul implicit none 1812795Swpaul TYPE, bind(C) :: the_distribution 1912795Swpaul INTEGER(c_int) :: parameters(1) 20100441Scharnier END TYPE the_distribution 2112795Swpaul TYPE (the_distribution), parameter, bind(C) :: & ! { dg-error "PARAMETER attribute conflicts with BIND.C." } 2212795Swpaul the_beta = the_distribution((/0/)) 2312795Swpaulend module m 24100441Scharnier 2512795Swpaulend 2612795Swpaul