/* Test accesses to global array elements in PIC code.  */
/* { dg-do compile } */
/* { dg-options "-O1 -march=z10 -mzarch -fPIC" } */

extern char a[] __attribute__ ((aligned (2)));
extern char *b;

void c()
{
  b = a + 4;
  /* { dg-final { scan-assembler "(?n)\n\tlgrl\t%r\\d+,a@GOTENT\n" { target lp64 } } } */
  /* { dg-final { scan-assembler "(?n)\n\tlrl\t%r\\d+,a@GOTENT\n" { target { ! lp64 } } } } */
  /* { dg-final { scan-assembler-not "(?n)\n\tlarl\t%r\\d+,a\[^@\]" } } */
}