From 0bf94da59feab2c72a02c91df310a36d33dfd1f7 Mon Sep 17 00:00:00 2001
From: Harald Anlauf <anlauf@gmx.de>
Date: Tue, 23 Apr 2024 20:21:43 +0200
Subject: [PATCH] Fortran: check C_SIZEOF on additions from TS29113/F2018
 [PR103496]

gcc/testsuite/ChangeLog:

	PR fortran/103496
	* gfortran.dg/c_sizeof_8.f90: New test.
---
 gcc/testsuite/gfortran.dg/c_sizeof_8.f90 | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/c_sizeof_8.f90

diff --git a/gcc/testsuite/gfortran.dg/c_sizeof_8.f90 b/gcc/testsuite/gfortran.dg/c_sizeof_8.f90
new file mode 100644
index 000000000000..0ae284436d03
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/c_sizeof_8.f90
@@ -0,0 +1,23 @@
+! { dg-do run }
+!
+! PR fortran/103496
+!
+! Test that C_SIZEOF returns the expected results
+
+program pr103496
+  use iso_c_binding
+  implicit none
+  integer :: a(6)
+  integer, pointer :: p(:)
+
+  if (c_sizeof(a)       /= 6*4) stop 1
+  if (c_sizeof(a(1))    /=   4) stop 2
+  if (c_sizeof(a(:))    /= 6*4) stop 3
+  if (c_sizeof(a(2::2)) /= 3*4) stop 4
+
+  allocate(p(5))
+  if (c_sizeof(p)       /= 5*4) stop 5
+  if (c_sizeof(p(1))    /=   4) stop 6
+  if (c_sizeof(p(:))    /= 5*4) stop 7
+  if (c_sizeof(p(2::2)) /= 2*4) stop 8
+end
-- 
2.47.2