gfortran - "PROCEDURE attribute conflicts with INTENT attribute" when compiling simple Fortran program with module -


i have simple fortran 95 program

include "sandboxlib.f95" program sandbox     implicit none     write(*, *) 'abc' end program

and simple module containing function

module sandboxlib   integer, parameter :: dp = kind(1.d0)  contains function cumsum(mat, m, n) result(c)     implicit none     real(dp), intent(in) :: mat     integer, intent(in) :: m, n     integer i, j     real(dp), dimension(m, n) :: c      c(:, 1) = 0.d0      = 2, m         j = 1, n             c(i, j) = c(i-1, j) + mat(i, j)         end     end end function end module

i compile sandbox.f95 command

/usr/bin/gfortran -o -std=gnu -wfatal-errors -pedantic -wall sandbox.f95 -o sandbox

which results in error

sandboxlib.f95:6.23:     included @ sandbox.f95:1:      function cumsum(mat, m, n)                        1 error: procedure attribute conflicts intent attribute in 'mat' @ (1)

i looked around , found few questions discuss modules, functions, etc. or error this, can't figure out why won't compile.

your mat declared scalar

  real(dp), intent(in) :: mat

but use array 

  c(i, j) = c(i-1, j) + mat(i, j)

and compiler parses function call , assumes mat() function. , functions cannot have intent.

i assume correct thing make mat array in declaration. mat(:,:) or mat(m,n). former can avoid passing m , n arguments.


Comments

Post a Comment

Popular posts from this blog

'hasOwnProperty' in javascript -

i use obj.hasownproperty judge whether object has property, when replaced obj[prop] !== undefined , not normal implementation, ask, why behind method can not use it? object.hasownproperty(prop); object[prop] !== undefined; obj[prop] !== undefined wrong 2 reasons: you can explicitly set property undefined , obj[prop] = undefined; . obj.hasownproperty(prop) return true in case. obj[prop] follow prototype chain, return property that's inherited. obj.hasownproperty(prop) returns true if property exists directly in object, returns false inherited properties.
Read more

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

android - Unable to generate FCM token from dynamically instantiated Firebase -

our business logic requires instantiate firebase during runtime. fetch firebase credentials (app id, api key etc.) default firebase location after knowing user's public key , create firebase instance using credentials. this means there 2 firebase instances used within app: the default "index" firebase gives credentials second the actual firebase intend use point forward the second firebase initialised this: firebaseapp app = firebaseapp.initializeapp(<context>, <options>, <app_label>); our problem traditional method of retrieving fcm token using firebaseinstanceidservice , ontokenrefresh() fails since ontokenrefresh() method called first firebase instance. directly calling string token = firebaseinstanceid.getinstance(app).gettoken(); returns null never ready when called. have tried polling test if token generated @ point. no luck. how can generate fcm token reliably firebase instance instantiated during runtime? i...
Read more