1 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/conflicts_2.f90 b/gcc/testsuite/gfortran.dg/conflicts_2.f90
new file mode 100644
index 000000000..665667294
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/conflicts_2.f90
@@ -0,0 +1,25 @@
+! { 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