local-ri-util.c File Reference

#include "defines-local.h"

Include dependency graph for local-ri-util.c:

Go to the source code of this file.

Functions
type	type_variable_dup (type t)
	local-ri-util.c More...
bool	fortran_library_entity_p (entity e)

Variables
static string	fortran_library []
	library functions... More...

Function Documentation

fortran_library_entity_p()

bool fortran_library_entity_p

(

entity

e

)

else not found

Definition at line 52 of file local-ri-util.c.

{
    string *s; const char* name=entity_local_name(e);
 
    if (!top_level_entity_p(e)) return(false);
    for (s=fortran_library; *s!=(string) NULL; s++)
        if (same_string_p(*s, name)) return true;
 
    return false; /* else not found */
}

References entity_local_name(), fortran_library, same_string_p, and top_level_entity_p().

Referenced by hpfc_compile(), and hpfc_directives_handler().

Here is the call graph for this function:

Here is the caller graph for this function:

type_variable_dup()

type type_variable_dup

(

type

t

)

local-ri-util.c

!!! means sharing

Definition at line 30 of file local-ri-util.c.

{
    if(type_variable_p(t))
    {
        variable v = type_variable(t);
 
        return MakeTypeVariable(variable_basic(v),
                                ldimensions_dup(variable_dimensions(v)));
    }
    else
        return t; /* !!! means sharing */
}

References ldimensions_dup(), MakeTypeVariable(), type_variable, type_variable_p, variable_basic, and variable_dimensions.

Here is the call graph for this function:

Variable Documentation

fortran_library

string fortran_library[]

static

Initial value:

=
{ 
  "TIME",
  (string) NULL
}

library functions...

Definition at line 46 of file local-ri-util.c.

Referenced by fortran_library_entity_p().