Fortran: fix dependency checks for inquiry refs [PR115039]
[official-gcc.git] / gcc / testsuite / gcc.target / mips / near-far-4.c
blobac7d727381429fe5c6e11ad55e5d42f67148c63d
1 /* { dg-do compile } */
2 /* { dg-options "-mno-long-calls addressing=absolute" } */
4 NOMIPS16 extern int long_call_func () __attribute__((long_call));
5 NOMIPS16 extern int far_func () __attribute__((far));
6 NOMIPS16 extern int short_call_func () __attribute__((short_call));
7 NOMIPS16 extern int near_func () __attribute__((near));
8 NOMIPS16 extern int normal_func ();
10 NOMIPS16 int test1 () { return long_call_func (); }
11 NOMIPS16 int test2 () { return far_func (); }
12 NOMIPS16 int test3 () { return near_func (); }
13 NOMIPS16 int test4 () { return normal_func (); }
14 NOMIPS16 int test5 () { return short_call_func (); }
16 /* { dg-final { scan-assembler-not "\tj\tlong_call_func\n" } } */
17 /* { dg-final { scan-assembler-not "\tj\tfar_func\n" } } */
18 /* { dg-final { scan-assembler "\t(j(|al|als)|b(|al)c)\tnear_func\n" } } */
19 /* { dg-final { scan-assembler "\t(j(|al|als)|b(|al)c)\tnormal_func\n" } } */
20 /* { dg-final { scan-assembler "\t(j(|al|als)|b(|al)c)\tshort_call_func\n" } } */