C++ (Cpp) g95_free_expr примеры использования

Пример #1

Файл: select.c Проект: pathscale/fortran-fe

static void free_case(g95_case *f) {  
  
  g95_free_expr(f->low);          
  if (f->high != f->low) g95_free_expr(f->high);       
       
  g95_free(f);          
}       

Пример #2

Файл: select.c Проект: jasonlarkin/disorder

static void free_case(g95_case *p) {

    g95_free_expr(p->low);

    if (p->high != p->low)
	g95_free_expr(p->high);

    g95_free(p);
}