diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/storage_size_1.f08')
-rw-r--r-- | gcc/testsuite/gfortran.dg/storage_size_1.f08 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/storage_size_1.f08 b/gcc/testsuite/gfortran.dg/storage_size_1.f08 index 71d3589c8ed..c444dac4cdf 100644 --- a/gcc/testsuite/gfortran.dg/storage_size_1.f08 +++ b/gcc/testsuite/gfortran.dg/storage_size_1.f08 @@ -19,13 +19,13 @@ class(t), allocatable :: cp allocate(t2::cp) -if (sizeof(a) /= 8) call abort() -if (storage_size(a) /= 64) call abort() +if (sizeof(a) /= 8) STOP 1 +if (storage_size(a) /= 64) STOP 2 -if (sizeof(b) /= 24) call abort() -if (storage_size(b) /= 64) call abort() +if (sizeof(b) /= 24) STOP 3 +if (storage_size(b) /= 64) STOP 4 -if (sizeof(cp) /= 12) call abort() -if (storage_size(cp) /= 96) call abort() +if (sizeof(cp) /= 12) STOP 5 +if (storage_size(cp) /= 96) STOP 6 end |