Lines 32-37
Link Here
|
32 |
# profiles = <profile> ... <profile> |
32 |
# profiles = <profile> ... <profile> |
33 |
# |
33 |
# |
34 |
# profile: |
34 |
# profile: |
|
|
35 |
# * gfortran - GCC Fortran 95 |
35 |
# * g77 - GCC Fortran 77 |
36 |
# * g77 - GCC Fortran 77 |
36 |
# * f2c - Fortran 2 C Translator |
37 |
# * f2c - Fortran 2 C Translator |
37 |
# * ifc - Intel Fortran Compiler |
38 |
# * ifc - Intel Fortran Compiler |
Lines 47-52
Link Here
|
47 |
local PROFILE |
48 |
local PROFILE |
48 |
for PROFILE in $@; do |
49 |
for PROFILE in $@; do |
49 |
case ${PROFILE} in |
50 |
case ${PROFILE} in |
|
|
51 |
gfortran) |
52 |
if [ -x "$(which gfortran 2> /dev/null)" ]; then |
53 |
AVAILABLE="${AVAILABLE} gfortran" |
54 |
fi |
55 |
;; |
50 |
g77) |
56 |
g77) |
51 |
if [ -x "$(which g77 2> /dev/null)" ]; then |
57 |
if [ -x "$(which g77 2> /dev/null)" ]; then |
52 |
AVAILABLE="${AVAILABLE} g77" |
58 |
AVAILABLE="${AVAILABLE} g77" |
Lines 78-83
Link Here
|
78 |
i=1 |
84 |
i=1 |
79 |
for PROFILE in $@; do |
85 |
for PROFILE in $@; do |
80 |
case ${PROFILE} in |
86 |
case ${PROFILE} in |
|
|
87 |
gfortran) |
88 |
eerror "[${i}] USE=\"fortran\" emerge sys-devel/gcc" |
89 |
;; |
81 |
g77) |
90 |
g77) |
82 |
eerror "[${i}] USE=\"fortran\" emerge sys-devel/gcc" |
91 |
eerror "[${i}] USE=\"fortran\" emerge sys-devel/gcc" |
83 |
;; |
92 |
;; |
Lines 117-125
Link Here
|
117 |
fi |
126 |
fi |
118 |
fi |
127 |
fi |
119 |
|
128 |
|
120 |
# default to g77 |
129 |
# default to gfortran if available, g77 if not |
121 |
use debug && echo "MY_FORTRAN: \"${MY_FORTRAN}\"" |
130 |
use debug && echo "MY_FORTRAN: \"${MY_FORTRAN}\"" |
122 |
MY_FORTRAN=${MY_FORTRAN:=g77} |
131 |
if hasq gfortran ${AVAILABLE}; then |
|
|
132 |
MY_FORTRAN=${MY_FORTRAN:=gfortran} |
133 |
else |
134 |
MY_FORTRAN=${MY_FORTRAN:=g77} |
135 |
fi |
123 |
use debug && echo "MY_FORTRAN: \"${MY_FORTRAN}\"" |
136 |
use debug && echo "MY_FORTRAN: \"${MY_FORTRAN}\"" |
124 |
|
137 |
|
125 |
if ! hasq ${MY_FORTRAN} ${AVAILABLE}; then |
138 |
if ! hasq ${MY_FORTRAN} ${AVAILABLE}; then |