| ! { dg-do compile } |
| ! |
| ! Check conflicts: |
| ! - PARAMETER and BIND(C), PR fortran/33310 |
| ! - INTRINSIC and ENTRY, PR fortran/33284 |
| ! |
| |
| subroutine a |
| intrinsic cos |
| entry cos(x) ! { dg-error "ENTRY attribute conflicts with INTRINSIC" } |
| real x |
| x = 0 |
| end subroutine |
| |
| module m |
| use iso_c_binding |
| implicit none |
| TYPE, bind(C) :: the_distribution |
| INTEGER(c_int) :: parameters(1) |
| END TYPE the_distribution |
| TYPE (the_distribution), parameter, bind(C) :: & ! { dg-error "PARAMETER attribute conflicts with BIND.C." } |
| the_beta = the_distribution((/0/)) |
| end module m |
| |
| end |