参数化类型如何绑定

lookbook

各位大佬好，代码如下：

      module m_a
         implicit none

         type :: bar(p, q)
            integer, kind :: p=4
            integer, len  :: q=10
            real(kind=p),dimension(q) :: x
         contains
            procedure,pass(this) :: barsub
         end type bar

      contains
         subroutine barsub(this)
            class(bar), intent(in) :: this
            write (*,*) this%x
         end subroutine barsub
      end module


gfortran编译错误如下：
       procedure,pass :: barsub
               1
Error: Argument ‘this’ of ‘barsub’ with PASS(this) at (1) must be of the derived-type ‘bar’

小白还望大佬们赐教，谢谢！

vvt

lookbook 发表于 2018-11-18 16:30
学习了，但是离开IDE是不是就不行了？

在编程的世界里，没有什么东西是离开IDE就不行的

liudy02

lookbook 发表于 2018-11-18 16:36
我都试过，并不可以。

啊，那真是奇怪，从编译报错看就是这个问题啊……

liudy02

lookbook 发表于 2018-11-18 16:30
嗯，是个好办法。
不过我现在不太让shell完成太多东西了，程序能自己解决的就尽可能不用shell（大概是我 ...

像我这么马虎的人，真正实现封装可以避免因为马虎犯很多错啊……

lookbook

liudy02 发表于 2018-11-16 22:31
哈哈，版主也犯错了啊
把后面两个进程里对哑元定义的关键字TYPE换成CLASS应该就好了 ...

我都试过，并不可以。

lookbook

weixing1531 发表于 2018-11-17 11:05
改变精度必然要重新编译代码
这种花哨功能不实用

嗯，改变精度必须要全部重新编译，这个问题给我的印象很深刻。

在一个程序里面，确实有可能性需要用到不同精度的同一个结构的自定义类型（虽然我都是统一精度的）。
这个时候参数化类型就能很方便的解决这个问题了。

lookbook

vvt 发表于 2018-11-17 09:36
配合预处理，确实能实现更多语法不方便做的事情。

比如 Qt 的 moc，扩展了 C++ 的功能 ...

学习了，但是离开IDE是不是就不行了？

lookbook

liudy02 发表于 2018-11-16 22:42
顺便说句，我终于现实解决了之前说的想定义不同kind但是功能几乎一样的类型，
甚至包括不同的数据类型，例 ...

嗯，是个好办法。
不过我现在不太让shell完成太多东西了，程序能自己解决的就尽可能不用shell（大概是我变懒了）。
你是不是对C++很熟啊，感觉使用Private属性还是很有用处的，我自己写的时候不太注意这个。

weixing1531

改变精度必然要重新编译代码
这种花哨功能不实用

vvt

配合预处理，确实能实现更多语法不方便做的事情。

比如 Qt 的 moc，扩展了 C++ 的功能