fortran - Passing procedure pointer to derived-type-bound-procedure -


i trying pass procedure pointer derived-type-bound-procedure

module mymodule use mystoremodule     implicit none     private     type, abstract, public :: mytype     contains         procedure :: parse     end type mytype contains  subroutine parse(self,mypointer)     implicit none      ! declaring part     class(mytype) :: self     procedure(storing),pointer, intent(in) :: mypointer      integer :: myvalue      ! executing part     myvalue = 42     call mypointer(myvalue)  end subroutine parse end module mymodule

where storing defined in module/ derived type

module mystoremodule     implicit none     type, public :: storingtype     integer :: myvalue     contains         procedure, public :: storing     end type storingtype contains  subroutine storing(self,myvalue)     ! declaring part     class(storingtype) :: self     integer, intent(in) :: myvalue     ! executing part     self%myvalue = myvalue end subroutine  setexcitationorder end module mystoremodule

i call procedure by

call mytypeobject%parse(storingtypeobject%storing)

with compiler error

the type of actual argument differs type of dummy argument.

i found out error comes procedure pointer not passing dummy argument storing procedure (i didn't define nopass). in other cases dummy argument gets passed automatically, why not here? it's not feasible me declare dummy argument, object procedure uses changes. there solutions problem?

well not passing there procedure pointer. storingtypeobject%storing not procedure pointer, binding type-bound procedure, not pointer of kind.

i wouldn't accept pointer, procedure argument in parse.

something like:

subroutine parse(self,mypointer)     implicit none      ! declaring part     class(mytype) :: self     procedure(storing), intent(in) :: myproc     integer :: myvalue      ! executing part     myvalue = 42     call myproc(myvalue)  end subroutine parse

and

    call mytypeobject%parse(storing_wrapper)    contains      subroutine storring_wrapper(myvalue)       integer, intent(in) :: myvalue       call storingtypeobject%storing(myvalue)     end subroutine

i think procedure pointers useful if can changed somewhere. not in parse if need set other target in situations.


Comments

Post a Comment

Popular posts from this blog

inversion of control - Autofac named registration constructor injection -

does autofac support specifying registration name in components' constructors? example: ninject's namedattribute . you need use autofac.extras.attributed package on top achieve this so let's have 1 interface , 2 classes: public interface ihello { string sayhello(); } public class englishhello : ihello { public string sayhello() { return "hello"; } } public class frenchhello : ihello { public string sayhello() { return "bonjour"; } } then have consumer class, in want select instance injected: public class helloconsumer { private readonly ihello helloservice; public helloconsumer([withkey("en")] ihello helloservice) { if (helloservice == null) { throw new argumentnullexception("helloservice"); } this.helloservice = helloservice; } public string sayhello() { return this.helloservice.sayhello()...
Read more

verilog - Systemverilog dynamic casting issues -

i've code snippet following in testbench function void write_to_port( my_data_type_base data ); my_data_type_extended data_ext; if(!$cast(data_ext, data)); `uvm_error(get_type_name(), "failed cast"); `uvm_info(get_name(), $psprintf("data_ext :\n%s", data_ext.sprint()), uvm_medium) // write data_ext out port.... endfunction when run it, i'm getting uvm_error "failed cast." i'm not quire sure why $cast not returning 1. can see, i'm printing out extended class data item after casting uvm_info. can see it's being cast properly. if don't use $cast if condition, don't runtime error. isn't coding practice use if dynamic cast check if $cast returning 1 ? what might reason behind cast not returning 1 in above case? i think semicolon on line 'if' not belong? i think consumes if statement, , uvm_error executes regardless of how if evaluates: if(!$cast(data_ext, data)); <- no semico...
Read more

ios - Change Storyboard View using Seague -

i have following code checks connection server, , depending on want change views if no connection found. nsstring *connect = [nsstring stringwithcontentsofurl:[nsurl urlwithstring:@"http://myserver.com"] encoding:nsutf8stringencoding error:nil]; if (connect == null) { [self performseguewithidentifier:@"network_failure" sender:self]; } else { // other code here } my problem not change views. have added storyboard segue between 2 views identifier of network_failure . not have navigation controller or that, problem? thanks help! no not problem. first of all, in objectivec exists nil object oriented null . must use that. so: if(connect == nil) or better: if(!connect) so due fact nil not same of null , probably code does't enter in if scope . you have been able discover breakpoint. anyway: be sure set trigger segue (line) 2 view controller , , name network_failure (that not best name. should instead view1toview2 ) as, m...
Read more