Commit 3e00397b authored by Budiardja, Reuben's avatar Budiardja, Reuben
Browse files

Reproducer for Interface issue with CCE.

parent 346dce2a
On Spock with CCE 12.0.1
]$ ftn -c Step_RK_H__Form.f90
]$ ftn -c Integrator_H__Form.f90
module Integrator_H__Form
^
ftn-855 crayftn: ERROR INTEGRATOR_H__FORM, File = Integrator_H__Form.f90, Line = 1, Column = 8
The compiler has detected errors in module "INTEGRATOR_H__FORM". No module information file will be created for this module.
use Step_RK_H__Form
^
ftn-1295 crayftn: ERROR MYSUBROUTINE, File = Integrator_H__Form.f90, Line = 3, Column = 7
"SS" is defined or referenced at line 17 (Integrator_H__Form.f90) and here. The number of arguments do not match. Expected 1, but found 3.
Cray Fortran : Version 12.0.1 (20210613201109_839e9b2bbb1ac9c72025eb8679be51962d757a55)
Cray Fortran : Compile time: 0.0058 seconds
Cray Fortran : 32 source lines
Cray Fortran : 2 errors, 0 warnings, 0 other messages, 0 ansi
Cray Fortran : "explain ftn-message number" gives more information about each message.
On Borg with CCE 13.0.0.5-beta:
]$ ftn -c Step_RK_H__Form.f90
]$ ftn -c Integrator_H__Form.f90
module Integrator_H__Form
^
ftn-855 crayftn: ERROR INTEGRATOR_H__FORM, File = Integrator_H__Form.f90, Line = 1, Column = 8
The compiler has detected errors in module "INTEGRATOR_H__FORM". No module information file will be created for this module.
use Step_RK_H__Form
^
ftn-1295 crayftn: ERROR MYSUBROUTINE, File = Integrator_H__Form.f90, Line = 3, Column = 7
"SS" is defined or referenced at line 17 (Integrator_H__Form.f90) and here. The number of arguments do not match. Expected 1, but found 3.
Cray Fortran : Version 13.0.0.5 (20211001193547_0be408fea6acbcd4c538415bc43e4878fa7c57fe)
Cray Fortran : Compile time: 0.0032 seconds
Cray Fortran : 32 source lines
Cray Fortran : 2 errors, 0 warnings, 0 other messages, 0 ansi
Cray Fortran : "explain ftn-message number" gives more information about each message.
No issue with Gfortran:
]$ gfortran -v
Using built-in specs.
COLLECT_GCC=/opt/cray/pe/gcc/11.2.0/bin/../snos/bin/gfortran
COLLECT_LTO_WRAPPER=/opt/cray/pe/gcc/11.2.0/snos/libexec/gcc/x86_64-suse-linux/11.2.0/lto-wrapper
Target: x86_64-suse-linux
Configured with: ../cpe-gcc-11.2.0-202108140355.9bf1fd589a5c1/configure --prefix=/opt/cray/pe/gcc/11.2.0/snos --disable-nls --libdir=/opt/cray/pe/gcc/11.2.0/snos/lib --enable-languages=c,c++,fortran --with-gxx-include-dir=/opt/cray/pe/gcc/11.2.0/snos/include/g++ --with-slibdir=/opt/cray/pe/gcc/11.2.0/snos/lib --with-system-zlib --enable-shared --enable-__cxa_atexit --build=x86_64-suse-linux --with-ppl --with-cloog --disable-multilib
Thread model: posix
Supported LTO compression algorithms: zlib
gcc version 11.2.0 20210728 (Cray Inc.) (GCC)
]$ gfortran -c Step_RK_H__Form.f90
]$ gfortran -c Integrator_H__Form.f90
module Integrator_H__Form
use Step_RK_H__Form
implicit none
private
type, public :: Integrator_H_Form
class ( Step_RK_H_Form ), allocatable :: &
Step_X
procedure ( SS ), public, pointer :: &
ShowSystem => null ( )
contains
end type Integrator_H_Form
interface
subroutine SS ( I )
import Integrator_H_Form
implicit none
class ( Integrator_H_Form ), intent ( in ) :: &
I
end subroutine SS
end interface
contains
subroutine MySubroutine ( I )
class ( Integrator_H_Form ), intent ( in ) :: &
I
end subroutine MySubroutine
end module Integrator_H__Form
module Step_RK_H__Form
implicit none
private
type, public :: Step_RK_H_Form
procedure ( SS ), pointer :: &
SetSlope => null ( )
end type Step_RK_H_Form
interface
subroutine SS ( S, K, iS_Option )
import Step_RK_H_Form
implicit none
class ( Step_RK_H_Form ), intent ( in ) :: &
S
logical, intent ( out ) :: &
K
integer, intent ( in ), optional :: &
iS_Option
end subroutine SS
end interface
contains
end module Step_RK_H__Form
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment