hang38.cpp

(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 ! { 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