Fortran: check C_SIZEOF on additions from TS29113/F2018 [PR103496]

gcc/testsuite/ChangeLog:

	PR fortran/103496
	* gfortran.dg/c_sizeof_8.f90: New test.

diff --git a/gcc/testsuite/gfortran.dg/c_sizeof_8.f90 b/gcc/testsuite/gfortran.dg/c_sizeof_8.f90
new file mode 100644 (file)
index 0000000..0ae2844
--- /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