Fortran: [PDT] Verify problems with error recovery have gone [PR103414]

2025-12-06  Paul Thomas  <pault@gcc.gnu.org>

gcc/testsuite
	PR fortran/103414
	* gfortran.dg/pdt_76.f03: New test.

diff --git a/gcc/testsuite/gfortran.dg/pdt_76.f03 b/gcc/testsuite/gfortran.dg/pdt_76.f03
new file mode 100644 (file)
index 0000000..22c0a3e
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pdt_76.f03
@@ -0,0 +1,21 @@
+! { dg-do compile }
+
+! Make sure that pr103414 is fixed.
+!
+! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
+!
+function p ()
+   type t(n)
+      integer, kind :: n
+      character(n) :: c = ''
+   end type
+   type(t(3)) :: x = t(z'1') ! { dg-error "Expected an initialization expression" }
+end
+
+function q ()
+   type t(n)
+      integer, kind :: n
+      character(n) :: c = ''
+   end type
+   type(t(3)) :: x(1) = [t(z'1')] ! { dg-error "Syntax error in array constructor" }
+end