[gcc r16-8299] Fortran: Add testcase [PR101281]

[Paul Thomas]

https://gcc.gnu.org/g:c0896c5aa7ba9289b2360f7f0e4e52af99da6531

commit r16-8299-gc0896c5aa7ba9289b2360f7f0e4e52af99da6531
Author: Paul Thomas <pault@gcc.gnu.org>
Date:   Fri Mar 27 07:27:09 2026 +0000

    Fortran: Add testcase [PR101281]
    
    2026-03-27  Paul Thomas  <pault@gcc.gnu.org>
    
    gcc/testsuite/ChangeLog:
    
            PR fortran/101281
            * gfortran.dg/pr101281.f90: New test.

Diff:
---
 gcc/testsuite/gfortran.dg/pr101281.f90 | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gcc/testsuite/gfortran.dg/pr101281.f90 b/gcc/testsuite/gfortran.dg/pr101281.f90
new file mode 100644
index 000000000000..6f742d1c1ca0
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr101281.f90
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! { dg-additional-options "-std=f2008" }
+! PR fortran/101281
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+!
+! ICE with -std=f2008 and assumed-rank array.
+!
+subroutine s(x)
+  integer :: x(..)  ! { dg-error "Fortran 2018: Assumed-rank array" }
+end