Sign in
llvm
/
llvm-project
/
flang
/
refs/heads/main
/
.
/
test
/
Evaluate
/
bug78932.f90
blob: 8fd3188e0b5cf3b5d820577c963bc86029145080 [
file
] [
log
] [
blame
]
!
RUN
:
not
%
flang_fc1
%
s
2
>&
1
|
FileCheck
%
s
!
CHECK
:
error
:
Actual
argument
for
'a1='
has bad type
'CHARACTER(KIND=1,LEN=1_8)'
real
,
parameter
::
bad_amax0
=
amax0
(
'a'
,
'b'
)
end