/*
 * Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
 * See https://llvm.org/LICENSE.txt for license information.
 * SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
 *
 */

/** \file transfrm.h
    \brief macros, definitons, and prototypes for Fortran transformation module
*/

#ifndef FE_TRANSFRM_H
#define FE_TRANSFRM_H

#include "universal.h"

typedef struct tlist {
  struct tlist *next;
  int item;
  int flag;
} TLIST;

void transform(void);
void reset_init_idx(void);
int get_init_idx(int i, int dtype);
int get_finfo(int forall, int a);
LOGICAL vector_member(int memast);
int normalize_forall(int forall_ast, int asgn_ast, int inlist);
int make_forall(int shape, int astmem, int mask_ast, int lc);
void init_tbl(void);
void free_tbl(void);
int get_tbl(void);
void trans_process_align(void);
LOGICAL is_bad_dtype(int dtype);
LOGICAL is_array_type(int sptr);
int mk_conformable_test(int dest, int src, int optype);
int mk_allocate(int ast);
int mk_deallocate(int ast);
void rewrite_deallocate(int ast, bool is_assign_lhs, int std, bool can_reorder);
void gen_dealloc_if_allocated(int ast, int std);

#endif /* FE_TRANSFRM_H */