gcc/testsuite/gfortran.dg/conflicts_2.f90

   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
   8 subroutine a
   9  intrinsic  cos
  10 entry cos(x) ! { dg-error "ENTRY attribute conflicts with INTRINSIC" }
  11  real x
  12  x = 0
  13 end subroutine
  14
  15 module 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/))
  23 end module m
  24
  25 end