From bb29e9ff3e42ee0bd23cf85cbce0e459213b19d0 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 13 Aug 2013 17:13:47 +0000 Subject: trans.c (Call_to_gnu): Deal with specific conditional expressions for misaligned actual parameters. * gcc-interface/trans.c (Call_to_gnu): Deal with specific conditional expressions for misaligned actual parameters. From-SVN: r201700 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gnat.dg/valued_proc.adb | 12 ++++++++++++ gcc/testsuite/gnat.dg/valued_proc_pkg.ads | 15 +++++++++++++++ 3 files changed, 32 insertions(+) create mode 100644 gcc/testsuite/gnat.dg/valued_proc.adb create mode 100644 gcc/testsuite/gnat.dg/valued_proc_pkg.ads (limited to 'gcc/testsuite') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f962249..d1079e6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-08-13 Eric Botcazou + + * gnat.dg/valued_proc.adb: New test. + * gnat.dg/valued_proc_pkg.ads: New helper. + 2013-08-13 Jakub Jelinek PR tree-optimization/57661 diff --git a/gcc/testsuite/gnat.dg/valued_proc.adb b/gcc/testsuite/gnat.dg/valued_proc.adb new file mode 100644 index 0000000..7030b43 --- /dev/null +++ b/gcc/testsuite/gnat.dg/valued_proc.adb @@ -0,0 +1,12 @@ +-- { dg-do compile } +-- { dg-options "-gnatdm -gnatws" } + +with Valued_Proc_Pkg; use Valued_Proc_Pkg; +with System; use System; + +procedure Valued_Proc is + Status : UNSIGNED_LONGWORD; + Length : POSITIVE; +begin + GetMsg (Status, UNSIGNED_WORD(Length)); +end; diff --git a/gcc/testsuite/gnat.dg/valued_proc_pkg.ads b/gcc/testsuite/gnat.dg/valued_proc_pkg.ads new file mode 100644 index 0000000..d5197ab --- /dev/null +++ b/gcc/testsuite/gnat.dg/valued_proc_pkg.ads @@ -0,0 +1,15 @@ +pragma Extend_System (Aux_DEC); +with System; use System; + +package Valued_Proc_Pkg is + + procedure GETMSG (STATUS : out UNSIGNED_LONGWORD; + MSGLEN : out UNSIGNED_WORD); + + pragma Interface (EXTERNAL, GETMSG); + + pragma IMPORT_VALUED_PROCEDURE (GETMSG, "SYS$GETMSG", + (UNSIGNED_LONGWORD, UNSIGNED_WORD), + (VALUE, REFERENCE)); + +end Valued_Proc_Pkg; -- cgit v1.1