Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/c_funloc_tests_3_funcs.c @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* These functions support the test case c_funloc_tests_3. */ #include <stdlib.h> #include <stdio.h> int printIntC(int i) { return 3*i; } int (*returnFunc(void))(int) { return &printIntC; } void callFunc(int(*func)(int), int pass, int compare) { int result = (*func)(pass); if(result != compare) { printf("FAILED: Got %d, expected %d\n", result, compare); abort(); } else printf("SUCCESS: Got %d, expected %d\n", result, compare); }