Re: index function problem

character,dimension(150) :: text='IF A PROGRAMMER IS FOUND TO BE
INDISPENSABLE,&
THE BEST THING TO DO IS TO GET RID OF HIM AS SOON AS POSSIBLE'

No, it's character(len=150). With dimension(150), you make text an array.

dummy=index(text,pattern)

There, as INDEX is elemental, index(text,pattern) is an array of rank 1
and size 150. dummy being a scalar, the assignment is not valid.

--
FX
.

Relevant Pages

  • Re: linux doesnt like me
    ... perldoc -q "How do I tell the difference between errors from the shell and perl" ... #initialize array and store data in the array ... Why do you think that there is a carriage return to get rid of and why do you ... think that chomp() will get rid of it? ...
    (perl.beginners)
  • Trouble with code that is broken over multiple lines (space_)
    ... .CommandText = Array(_ ... Sum(fct_CommissionAccrued.AccruedAmount) AS 'Sum of ... "rID AND fct_CommissionAccrued.CommissionTypeID = ...
    (microsoft.public.excel.programming)
  • [RFC][PATCH] Put size in array to get rid of barriers in grow_ary()
    ... The grow_arycode has a number of explicit memory barriers, ... array itself, so that the array and the size cannot possibly get out ... Also uses rcu_assign_pointerto get rid of the remaining ... send the line "unsubscribe linux-kernel" in ...
    (Linux-Kernel)
  • Re: conditional Formula
    ... to clarify my previous post, you can get rid of the "--" for each array that ... >> monthly basis and I will only need to update the list. ...
    (microsoft.public.excel.worksheet.functions)
  • Re: global substitution with files
    ... Jeff Pang wrote: ... rid of spaces, and apostrophes and such. ... then re-open it and overwrite it with the array. ...
    (perl.beginners)