[quote]用fortran处理数据,又不想输入文件名,用语句
open (1,file='',form='formatted',status='old')
运行时弹出对话框选择文件,但问题来了,我想将处理好的结果存在一个与输入文件名字相同,扩展名不同的新文件[/quote]

这是一种不标准的写法，某些编译器提供的扩展。

你应该是无法获得这个文件名了。

建议自己调用系统函数来实现通用打开文件对话框

character(256) :: filename
inquire(1,name=filename)