ASAGI
1.0
a pArallel Server for Adaptive GeoInformation
Main Page
Related Pages
Modules
Namespaces
Classes
Files
Examples
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Groups
Pages
build
CMakeFiles
CompilerIdFortran
CMakeFortranCompilerId.F
1
PROGRAM
cmakefortrancompilerid
2
#if 0
3
! Identify the compiler
4
#endif
5
#if defined(__INTEL_COMPILER) || defined(__ICC)
6
print *,
'INFO:compiler[Intel]'
7
#elif defined(__SUNPRO_F90) || defined(__SUNPRO_F95)
8
print *,
'INFO:compiler[SunPro]'
9
#elif defined(_CRAYFTN)
10
print *,
'INFO:compiler[Cray]'
11
#elif defined(__G95__)
12
print *,
'INFO:compiler[G95]'
13
#elif defined(__PATHSCALE__)
14
print *,
'INFO:compiler[PathScale]'
15
#elif defined(__ABSOFT__)
16
print *,
'INFO:compiler[Absoft]'
17
#elif defined(__GNUC__)
18
print *,
'INFO:compiler[GNU]'
19
#elif defined(__IBMC__)
20
# if defined(__COMPILER_VER__)
21
print *,
'INFO:compiler[zOS]'
22
# elif __IBMC__ >= 800
23
print *,
'INFO:compiler[XL]'
24
# else
25
print *,
'INFO:compiler[VisualAge]'
26
# endif
27
#elif defined(__PGI)
28
print *,
'INFO:compiler[PGI]'
29
#elif defined(_SGI_COMPILER_VERSION) || defined(_COMPILER_VERSION)
30
print *,
'INFO:compiler[MIPSpro]'
31
# if 0
32
! This compiler is either not known or is too old to define an
33
! identification macro. Try to identify the platform and guess that
34
! it is the native compiler.
35
# endif
36
#elif defined(_AIX) || defined(__AIX) || defined(__AIX__) || defined(__aix) || defined(__aix__)
37
print *,
'INFO:compiler[VisualAge]'
38
#elif defined(__sgi) || defined(__sgi__) || defined(_SGI)
39
print *,
'INFO:compiler[MIPSpro]'
40
#elif defined(__hpux) || defined(__hpux__)
41
print *,
'INFO:compiler[HP]'
42
#elif 1
43
# if 0
44
! The above 'elif 1' instead of 'else' is to work around a bug in the
45
! SGI preprocessor which produces both the __sgi and else blocks.
46
# endif
47
print *,
'INFO:compiler[]'
48
#endif
49
50
#if 0
51
! Identify the platform
52
#endif
53
#if defined(__linux) || defined(__linux__) || defined(linux)
54
print *,
'INFO:platform[Linux]'
55
#elif defined(__CYGWIN__)
56
print *,
'INFO:platform[Cygwin]'
57
#elif defined(__MINGW32__)
58
print *,
'INFO:platform[MinGW]'
59
#elif defined(__APPLE__)
60
print *,
'INFO:platform[Darwin]'
61
#elif defined(_WIN32) || defined(__WIN32__) || defined(WIN32)
62
print *,
'INFO:platform[Windows]'
63
#elif defined(__FreeBSD__) || defined(__FreeBSD)
64
print *,
'INFO:platform[FreeBSD]'
65
#elif defined(__NetBSD__) || defined(__NetBSD)
66
print *,
'INFO:platform[NetBSD]'
67
#elif defined(__OpenBSD__) || defined(__OPENBSD)
68
print *,
'INFO:platform[OpenBSD]'
69
#elif defined(__sun) || defined(sun)
70
print *,
'INFO:platform[SunOS]'
71
#elif defined(_AIX) || defined(__AIX) || defined(__AIX__) || defined(__aix) || defined(__aix__)
72
print *,
'INFO:platform[AIX]'
73
#elif defined(__sgi) || defined(__sgi__) || defined(_SGI)
74
print *,
'INFO:platform[IRIX]'
75
#elif defined(__hpux) || defined(__hpux__)
76
print *,
'INFO:platform[HP-UX]'
77
#elif defined(__HAIKU) || defined(__HAIKU__) || defined(_HAIKU)
78
print *,
'INFO:platform[Haiku]'
79
# if 0
80
! Haiku also defines __BEOS__ so we must
81
! put it prior to the check for __BEOS__
82
# endif
83
#elif defined(__BeOS) || defined(__BEOS__) || defined(_BEOS)
84
print *,
'INFO:platform[BeOS]'
85
#elif defined(__QNX__) || defined(__QNXNTO__)
86
print *,
'INFO:platform[QNX]'
87
#elif defined(__tru64) || defined(_tru64) || defined(__TRU64__)
88
print *,
'INFO:platform[Tru64]'
89
#elif defined(__riscos) || defined(__riscos__)
90
print *,
'INFO:platform[RISCos]'
91
#elif defined(__sinix) || defined(__sinix__) || defined(__SINIX__)
92
print *,
'INFO:platform[SINIX]'
93
#elif defined(__UNIX_SV__)
94
print *,
'INFO:platform[UNIX_SV]'
95
#elif defined(__bsdos__)
96
print *,
'INFO:platform[BSDOS]'
97
#elif defined(_MPRAS) || defined(MPRAS)
98
print *,
'INFO:platform[MP-RAS]'
99
#elif defined(__osf) || defined(__osf__)
100
print *,
'INFO:platform[OSF1]'
101
#elif defined(_SCO_SV) || defined(SCO_SV) || defined(sco_sv)
102
print *,
'INFO:platform[SCO_SV]'
103
#elif defined(__ultrix) || defined(__ultrix__) || defined(_ULTRIX)
104
print *,
'INFO:platform[ULTRIX]'
105
#elif defined(__XENIX__) || defined(_XENIX) || defined(XENIX)
106
print *,
'INFO:platform[Xenix]'
107
#elif 1
108
# if 0
109
! The above 'elif 1' instead of 'else' is to work around a bug in the
110
! SGI preprocessor which produces both the __sgi and else blocks.
111
# endif
112
print *,
'INFO:platform[]'
113
#endif
114
#if defined(_WIN32) && (defined(__INTEL_COMPILER) || defined(__ICC))
115
# if defined(_M_IA64)
116
print *,
'INFO:arch[IA64]'
117
# elif defined(_M_X64) || defined(_M_AMD64)
118
print *,
'INFO:arch[x64]'
119
# elif defined(_M_IX86)
120
print *,
'INFO:arch[X86]'
121
# endif
122
#endif
123
END
Generated by
1.8.7