! Macros for assertions

#ifdef __GFORTRAN__
#define ASSERT(x) call assert(x,"x",__FILE__,__LINE__)
#define ERROR_ABORT(x,y) call assert(x,"x",__FILE__,__LINE__,y)
#else
#define ASSERT(x) call assert(x,#x,__FILE__,__LINE__)
#define ERROR_ABORT(x,y) call assert(x,#x,__FILE__,__LINE__,y)
#endif