Missed that file in r213079 of 2014-07-26

2014-09-03  Tobias Burnus  <burnus@net-b.de>

        PR fortran/61881
        PR fortran/61888
        PR fortran/57305
        * gfortran.dg/sizeof_4.f90: New.

From-SVN: r214843

gcc/testsuite/ChangeLog

+2014-09-03  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/61881
+	PR fortran/61888
+	PR fortran/57305
+	* gfortran.dg/sizeof_4.f90: New.
+
 2014-09-02  Bill Schmidt  <wschmidt@linux.vnet.ibm.com>
 
 	* gcc.target/powerpc/builtins-1.c: Add tests for vec_ctf,

gcc/testsuite/gfortran.dg/sizeof_4.f90

+! { dg-do run }
+!
+! PR fortran/61881
+! PR fortran/61888
+!
+!
+use iso_c_binding
+implicit none
+
+call dim0(5, 4)
+
+call dim1([1, 2, 3], 4*3)
+
+call dimd(5, 4)
+call dimd([1, 2, 3], 4*3)
+call dimd(reshape([1, 4, 2, 3],[2, 2]), 4*4)
+
+call tdim1([1, 2, 3], 4*3)
+call tdim1([1_8, 2_8, 3_8], 8*3)
+
+call tdimd(5, 4)
+call tdimd([1, 2, 3], 4*3)
+call tdimd(reshape([1, 4, 2, 3], [2, 2]), 4*4)
+call tdimd(5_8, 8)
+call tdimd([1_8, 2_8, 3_8], 8*3)
+call tdimd(reshape([1_8, 4_8, 2_8, 3_8],[2,2]), 8*4)
+
+call cdim0(5, 4)
+
+call cdim1([1, 2, 3], 4*3)
+
+call cdimd(5, 4)
+call cdimd([1, 2, 3], 4*3)
+call cdimd(reshape([1,4,2,3],[2,2]), 4*4)
+call cdimd(5_8, 8)
+call cdimd([1_8, 2_8, 3_8], 8*3)
+call cdimd(reshape([1_8, 4_8, 2_8, 3_8], [2, 2]), 8*4)
+
+contains
+
+subroutine dim0(x, expected_size)
+  integer :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+  if (storage_size(x)/8 /= expected_size) call abort()
+end
+
+subroutine dim1(x, expected_size)
+  integer, dimension(:) :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+  if (storage_size(x)/8*size(x) /= expected_size) call abort()
+end
+
+subroutine dimd(x, expected_size)
+  integer, dimension(..) :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+  if (storage_size(x)/8*size(x) /= expected_size) call abort()
+end
+
+subroutine cdim0(x, expected_size)
+  class(*) :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+  if (storage_size(x)/8 /= expected_size) call abort()
+end
+
+subroutine cdim1(x, expected_size)
+  class(*), dimension(:) :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+  if (storage_size(x)/8*size(x) /= expected_size) call abort()
+end
+
+subroutine cdimd(x, expected_size)
+  class(*), dimension(..) :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+  if (storage_size(x)/8*size(x) /= expected_size) call abort()
+end
+
+subroutine tdim1(x, expected_size)
+  type(*), dimension(:) :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+end
+
+subroutine tdimd(x, expected_size)
+  type(*), dimension(..) :: x
+  integer, value :: expected_size
+  if (sizeof(x) /= expected_size) call abort()
+end
+
+end