! { dg-do compile }
! Test fix of PR24705 - ICE on assumed character length
! internal function.
!
character (6) :: c
c = f1 () ! { dg-error "must not be assumed length" }
if (c .ne. 'abcde
/* This tests an insn length of sign extention on h8300 port. */
extern void exit (int);
volatile signed char *q;
volatile signed int n;
void
foo (void)
{
signed char *p;
for (;;)
{
/* Test for tree-checking error when initializing a variable-length array
(not allowed): constructor_max_index needs to be an INTEGER_CST. */
/* Origin: Joseph Myers . */
/* { dg
/* Test structures passed by value, including to a function with a
variable-length argument lists. All struct members are float
scalars. */
extern void struct_by_value_5a_x (void);
extern voi
/* Test structures passed by value, including to a function with a
variable-length argument lists. All struct members are of type
_Complex long long. */
extern void struct_by_value_15_x (void
/* Test structures passed by value, including to a function with a
variable-length argument lists. All struct members are float
scalars. */
extern void struct_by_value_5b_x (void);
extern voi
/* Test structures passed by value, including to a function with a
variable-length argument list.
This test is based on one contributed by Alan Modra. */
extern void struct_by_value_2_x (void)
/* Test structures passed by value, including to a function with a
variable-length argument list. Each struct contains an array
of small structs, each with three scalar members. */
extern voi
