rt_gccstream/gcc/testsuite/c-c++-common/dfp/call-by-value.c
apop 5c1fb0cf09 Creating a development branch for OpenMP stream extensions.
git-svn-id: svn://gcc.gnu.org/svn/gcc/branches/omp-stream@159266 138bc75d-0d04-0410-961f-82ee72b054a4
2010-05-11 10:00:02 +00:00

44 lines
623 B
C

/* C99 6.9.1(9) Function definitions; parameter has automatic storage.
Test that actual parameters are passed by value and that modifications
made within functions are lost on function return. */
#include "dfp-dbg.h"
int foo32 (_Decimal32 z)
{
z = z + 1.0df;
}
int foo64 (_Decimal64 z)
{
z = z + 1.0dd;
}
int foo128 (_Decimal128 z)
{
z = z + 1.0dl;
}
int
main ()
{
_Decimal32 d32 = 1.1df;
_Decimal64 d64 = 1.2dd;
_Decimal128 d128 = 1.3dl;
foo32 (d32);
if (d32 != 1.1df)
FAILURE
foo64 (d64);
if (d64 != 1.2dd)
FAILURE
foo128 (d128);
if (d128 != 1.3dl)
FAILURE
FINISH
}