【技术讨论帖】Fortran之字符串不定长度

haobang008

今日在彭国伦的Fortran课本的第181页发现一个问题：

传递字符串变量的时候，也可以不特别赋值它的长度，所以出现的如下的设置

1. 
   
2. character(len=*) ::string
   

<br /> character(len=*) ::string<br />

我尝试了下，结果在VF6.6上老师报错，不知道在其他平台是否可以运行？

言深深

大约是编译器的问题吧，你试试直接用
character string
进行定义，但是不给长度，貌似是属于默认的(8位？具体我忘记了···)

OOOO1

学习学习。。。。。

mofangbao

去掉  len=再试试 也就是
character(*)  string

haobang008

mofangbao 发表于 2014-3-2 12:20

                               
登录/注册后可看大图

去掉  len=再试试 也就是
character(*)  string

Error: This passed length character name has been used in an invalid context.

上面就是报错的结果。应该是平台版本的问题？感觉6.6的要求比较严格

haobang008

言深深 发表于 2014-3-2 10:29

                               
登录/注册后可看大图

大约是编译器的问题吧，你试试直接用
character string
进行定义，但是不给长度，貌似是属于默认的(8位？ ...

如你所说，的确不会报错，但是就和我的本意不同了，我想声明的是字符串，而不是单个的字符。
因为按照你的character string
只是声明了一个string的字符，只能存放一个字母之类的。

haobang008

OOOO1 发表于 2014-3-2 11:55

                               
登录/注册后可看大图

学习学习。。。。。

这个用法不对，请不要误解啦

mofangbao

haobang008 发表于 2014-3-2 14:36

                               
登录/注册后可看大图

这个用法不对，请不要误解啦

这种用法我试过 是可以的
你把你的代码多贴一点出来，最好是有一个可以说明问题的小demo 也许是其他地方的问题导致的

mofangbao

你对照下面的代码看下就知道了你是不是哪里写的不对了，写了一个小例子：

1. program test
   
2. character*100 chars
   
3. 100 continue
   
4. print*,"请输入一个长度小于100个字符的字符串："
   
5. read(*,'(a)')chars
   
6. call printchars(chars)
   
7. goto 100
   
8. 
   
9. end
   
10. 
    
11. subroutine printchars(chars)
    
12. character(*) chars
    
13. 
    
14. print*,"您输入的字符串是：",chars
    
15. print*,"这个字符串的长度是（不含首尾空格）：",LEN_TRIM(chars)
    
16. 
    
17. end
    
18. 
    

program test<br /> character*100 chars<br /> 100 continue<br /> print*,"请输入一个长度小于100个字符的字符串："<br /> read(*,'(a)')chars<br /> call printchars(chars)<br /> goto 100<br /> <br /> end<br /> <br /> subroutine printchars(chars)<br /> character(*) chars<br /> <br /> print*,"您输入的字符串是：",chars<br /> print*,"这个字符串的长度是（不含首尾空格）：",LEN_TRIM(chars)<br /> <br /> end<br /> <br />

我用的6.5测的，应该和6.6差别不大~

haobang008

mofangbao 发表于 2014-3-3 09:11

                               
登录/注册后可看大图

你对照下面的代码看下就知道了你是不是哪里写的不对了，写了一个小例子：
我用的6.5测的，应该和6.6差别不 ...

十分感谢清风前辈的指教，我运行了下，的确是是这样的。
但是这个用法应该是用在子函数中的，在主程序中则总会报错，其实话说回来，要是传递不定长度的字符串一般也是往函数之类的传递，应该也就是限制在函数中使用这种语法了吧。